Back to Top

プログラムの覚書

Category: ネットワーク通信

VB.NET WebClientでFTP通信

WebClientクラスを使用すると簡単に、FTP通信が出来ます。

FTPでダウンロード・アップロードする方法を記載します。

・System.Netをインポートする

ファイルをダウンロードする

Dim url As String = "ftp://192.168.2.141/sample.txt" 
Dim fileName As String = "C:\work\sample.txt"

Using WebCl As New WebClient()
    WebCl.Credentials = New NetworkCredential("id", "password")
    WebCl.UploadFile(url, fileName)                     'ファイルをアップロードする
End Using

 

ファイルをアップロードする

Dim url As String = "ftp://192.168.2.141/sample.txt" 
Dim fileName As String = "C:\work\sample.txt"

Using WebCl As New WebClient()
    WebCl.Credentials = New NetworkCredential("id", "password")
    WebCl.UploadFile(url, fileName)                     'ファイルをアップロードする
End Using

 

VB.NET WebClientでUriをダウンロード

WebClientクラスを使用して、URL(URI)からデータをダウンロードする方法を記載します。

・System.Netをインポートする

指定URL(URI)から文字列としてダウンロードする

Dim url As String = "http://microsoft.com"

Dim html As String

Using WebCl As New WebClient()
    WebCl.Encoding = System.Text.Encoding.UTF8      '文字コードを指定
    html = WebCl.DownloadString(url)                'データを文字列としてダウンロードする
End Using

'ダウンロードしたデータを表示
Console.WriteLine(html)

 

指定URL(URI)からバイナリーデータとしてダウンロードする

Dim Data As Byte()
Using WebCl As New WebClient()
    Data = WebCl.DownloadData(url)                  'データをバイト配列にダウンロードする
End Using

'ダウンロードしたデータを表示する
Dim str As String = System.Text.Encoding.UTF8.GetString(Data)    'バイト配列を文字列に変換
Console.WriteLine(str)

 

ストリームを使用して、指定URL(URI)を読み込む

Dim str As String

Using WebCl As New WebClient()
    Dim dt As System.IO.Stream = WebCl.OpenRead(url)                        'データを読み取るStreamを開く
    Dim sr As New System.IO.StreamReader(dt, System.Text.Encoding.UTF8)
    str = sr.ReadToEnd()
    dt.Close()
End Using

'ダウンロードしたデータを表示する
Console.WriteLine(str)

 

指定URL(URI)からファイルをダウンロードする

Dim url As String = "\\192.168.2.10\Share/sample.txt"
Dim fileName As String = "C:\work\sample.txt"

Using WebCl As New WebClient()
    'IDとパスワードがいる場合設定
    'WebCl.Credentials = New NetworkCredential("id", "password")

    WebCl.DownloadFile(url, fileName)                 'ファイルをダウンロードする
End Using