fc2ブログ

トップ  >  サンプルソース  >  FTPダウンロード(VBS/VBA)

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
' --------------------------------------------------------
スポンサーサイト



FTPアップロード(VBS/VBA) | トップページへ戻る | 時計 設定/停止/開始(ツール)

このページのトップに戻る

コメント

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る