トップ  >  サンプルソース  >  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.PutFile("c:\temp\test.dat", "/home", 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.PutFile("c:\temp\test.dat", "/home", 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)

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

コメント

VBSがエラーになります

はじめまして!

現在ローカルからFTPサーバにファイルを自動送信するため、batとvbsの組み合わせでジョブ化しようと考えています。

サンプルソースをそのまま貼り付けたvbsを起動するとエラーになりました。
(URLより添付)

正常に動かす手順を教えて頂けないでしょうか?


宜しくお願いします。

Basp21.dllとBsmtp.dllをC:\Windowsにコピーして、[Regsvr32.exe Basp21.dll]を実行する必要があります。

すでに行なっている場合は、原因不明です。

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

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

トラックバック

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