Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60681 / 76732 ←次へ | 前へ→

【20688】FTP転送時
質問  ふーみん  - 04/12/15(水) 9:46 -

引用なし
パスワード
   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

1 hits

【20688】FTP転送時 ふーみん 04/12/15(水) 9:46 質問
【20693】Re:FTP転送時 むーみんぱぱ 04/12/15(水) 13:58 発言

60681 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free