FTPダウンロード(VBS/VBA)
2011年01月14日
FTPでダウンロードする(VBS/VBA)のサンプル(ソース/コード)です。BASP21を使用しています。FTP関係のプログラムを作るならBASP21が一番簡単だと思います。次回のサンプルは FTPアップロード(VBS/VBA) です。
FTP関係のツールやサンプルはこちら「FTP関係」です。
' --------------------------------------------------------
' FTPダウンロードのサンプル(VBS)
' Basp21.dllとBsmtp.dllをC:\Windowsにコピーしています
' [Regsvr32.exe Basp21.dll]を実行しています
' FTP用コンポーネントの宣言
Set BASP21 = CreateObject("Basp21.FTP")
' FTP接続(オープン)
rc = BASP21.Connect("ftp.xxx.com", "ftp_id", "ftp_ps")
' FTP接続結果チェック
If rc = 0 Then
' FTPダウンロード
rc = BASP21.GetFile("/home/test.dat", "C:\temp", 1)
' FTPダウンロード結果チェック
If rc = 0 Then
MsgBox "FTPダウンロード 無"
ElseIf rc > 0 Then
MsgBox "FTPダウンロード OK"
Else
MsgBox "FTPダウンロード NG"
End If
' FTP切断(クローズ)
rc = BASP21.Close()
Else
MsgBox "FTP接続 NG"
End If
' --------------------------------------------------------
' --------------------------------------------------------
' FTPダウンロードのサンプル(VBA)
' Basp21.dllとBsmtp.dllをC:\Windowsにコピーしています
' [Regsvr32.exe Basp21.dll]を実行しています
Private Sub CommandButton1_Click()
' FTP用コンポーネントの宣言
Set BASP21 = CreateObject("Basp21.FTP")
' FTP接続(オープン)
rc = BASP21.Connect("ftp.xxx.com", "ftp_id", "ftp_ps")
' FTP接続結果チェック
If rc = 0 Then
' FTPダウンロード
rc = BASP21.GetFile("/home/test.dat", "C:\temp", 1)
' FTPダウンロード結果チェック
If rc = 0 Then
MsgBox "FTPダウンロード 無"
ElseIf rc > 0 Then
MsgBox "FTPダウンロード OK"
Else
MsgBox "FTPダウンロード NG"
End If
' FTP切断(クローズ)
rc = BASP21.Close()
Else
MsgBox "FTP接続 NG"
End If
End Sub
' --------------------------------------------------------
スポンサーサイト