|
FTP転送する際に下記のようなソースにて実行すると
FTPPUTの部分でエラーを起こしエラー番号12003が返ってきます。
色々とネット上を見てみたのですが解決策が分からないので
教えて頂けますでしょうか。
'メッセージ初期化
TextBox1.Text = ""
'InternetOpen (Handle を取得)
lngInethnd = InternetOpen(vbNullString, 0&, vbNullString, vbNullString, 0)
If lngInethnd = 0 Then
TextBox1.Text = "インターネットのハンドルの作成に失敗しました"
End If
'InternetConnect (上記で取得した Handle で FTP Server に Connect)
lngFtphnd = InternetConnect(lngInethnd, msFtpSvr, 21, msFtpUid, msFtpPwd, 1&, 0, 0)
If lngFtphnd = 0 Then
TextBox1.Text = "サーバーへの接続に失敗しました"
End If
'UpLoad したい FTP Server 内の Directory
bytFtpBuff = StrConv((msFtpDir & vbNullChar), vbFromUnicode)
'FTP Server の CurrentDirectory を変更
lngRet = FtpSetCurrentDirectory(lngFtphnd, bytFtpBuff(0))
If lngRet = 0 Then
TextBox1.Text = "格納先ディレクトリ取得失敗"
End If
'Local の CurrentDrive を変更
ChDrive (Mid(msFtpLclDir, 1, 2))
'Local の CurrentDirectory を変更
ChDir (Mid(msFtpLclDir, 3, Len(msFtpLclDir)))
'UpLoad したいファイルの名前
bytLclBuff = StrConv((msFtpFilNm & vbNullChar), vbFromUnicode)
'UpLoad (BINARY-MODEの場合)
lngRet = FtpPutFile(lngFtphnd, bytLclBuff(0), bytLclBuff(0), FTP_TRANSFER_TYPE_BINARY, 1)
If lngRet <> 0 Then
TextBox1.Text = "送信成功しました!"
Else
TextBox1.Text = "送信失敗しました!"
TextBox2.Text = ERR.LastDllError
End If
|
|