.NetFrameWork2.0以降ではSystem.Net.WebClientクラスを用いて
簡単にFTPでのアップロードダウンロードが可能。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wkWebClt As New System.Net.WebClient()
'ダウンロード先のアドレス
Dim downAdress As String = "ftp://192.168.0.161/dwn.txt"
'アップロード先のアドレス
Dim upAdress As String = "ftp://192.168.0.161/upd.txt"
'保存する場所を指定(ファイル名まで指定すること)
Dim destPath As String = "C:\Documents and Settings\administrator\デスクトップ\はらだ用\download\dwn.txt"
'保存する場所を指定(ファイル名まで指定すること)
Dim srcPath As String = "C:\Documents and Settings\administrator\デスクトップ\はらだ用\download\upd.txt"
'ログインユーザー名とパスワードを指定
wkWebClt.Credentials = New System.Net.NetworkCredential("administrator", "pass")
'１．FTPサーバーからダウンロードする
wkWebClt.DownloadFile(downAdress, destPath)
'２．FTPサーバーにアップロードする
wkWebClt.UploadFile(upAdress, srcPath)
'解放する
wkWebClt.Dispose()
End Sub
End Classなお、FTPサイトに書き込み、読み取りの権限がない場合は例外が発生します。
※WebClientクラスではなくWebRequest、WebResponseクラスを用いたら
より細かい動作をさせることも可能。
(WebClientクラスはWebRequest,WebResponseクラスを利用している)
動作確認環境:Visual Stadio2005,.NetFrameWork2.0
