VBAでFTPサーバーへのアップデート
BASP21でのFTPサーバーへのアップデートが出来ないです。
BASP21をインストールし、サーバーのユーザー名やパスワードも
あっている状態です。
しかし、アップデートすると
「を送信できませんでした。」
と表示され、アップデートできませんでした。
「FTP接続できませんでした。」は抜けているので、
それ以外が原因だとは思うのですが分かりません。
Visual Basicのサンプルから書きました。
以下の通りです。
初心者のため質問に不備があるかもしれません。
予めお許しください。
Sub FTPサーバーにUP()
Dim FTP, rc As Long, Server As String, User As String, Pass As String
Dim Target As String, Folder As String
Set FTP = CreateObject("basp21.FTP") ''FTPオブジェクト
Server = "ftp.●●●●●●.jp" ''ホストアドレス
User = "●●●●●●" ''ユーザー名
Pass = "●●●●●●●●" ''パスワード
Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル
If Target = "False" Then Exit Sub
Folder = "/home/●●●●●●/●●●●/●●●/状況"
rc = FTP.Connect(Server, User, Pass)
If rc <> 0 Then
MsgBox "FTP接続できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
rc = FTP.PutFile(Target, Folder)
If rc <> 1 Then
MsgBox Dir(Target) & "を送信できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
MsgBox Dir(Target) & "を送信しました。", vbInformation
FTP.Close
End Sub
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
補足
Fetch 4.03.j をダウンロードしてみました。 立ち上げると、ホスト、ユーザID、パスワードを入力する画面が出たので、お客さんの設定を入力し,ファイルを選択し、送信ボタンを押しましたが、永遠に反応がないのです。 何度もチャレンジしてみましたが、うまくいきません。 原因は何なのでしょう？