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
お礼
ありがとうございました。 サイトで調べましたがよくわかりませんでしたので dllを作り、少々無駄ではありましたがvbの中でコールするようにいたしました。