.NET用ＦＴＰクラスライブラリ (TKFP.DLL) 1.4.3 オンラインライブラリ サンプル付きをダウンロードすると、Form で動くサンプルが VB.net と C# で付いてきます。 ( プライベートクラスを ListViewItem を継承して作成して ListView で表示するサンプル )以下はそれを元にバッチでディリクトリ内の フォルダファイルとの一覧を表示するようにしたものです
Imports TKFP.Net
Imports TKFP.IO
Module Module1
Sub Main()
' FTP 用基本認証
Dim logon As BasicFtpLogon = New BasicFtpLogon("ユーザ", "パスワード")
' FTP クライアント
Dim FtpClient As FtpClient = New FtpClient(logon, "サーバ", 21)
'パッシブモード
FtpClient.ConnectionMode = ConnectionModes.Passive
'リストの取得コマンドを設定
FtpClient.ListType = TKFP.Net.ListType.LIST
'取得したリスト情報の有効時間を設定
FtpClient.ListCacheValidityInterval = 60
FtpClient.FileSystemCacheValidityInterval = 60
' SSL で接続する
FtpClient.AuthenticationProtocol = AuthenticationProtocols.Explicit_SSL
' LIST情報の解析クラスを指定
FtpClient.ListDataLoader = New TKFP.IO.UnixListDataLoader()
'日本語ファイル名の文字コードを指定( shift_jis がデフォルト )
FtpClient.FileNameCharset = "sjis"
' 接続
If Not FtpClient.Connect() Then
FtpClient.Close()
FtpClient = Nothing
Return
End If
' メッセージ
If FtpClient.IsEncrypted Then
Console.WriteLine("暗号化されています")
End If
' ディレクトリオブジェクトを作成
Dim CurrentDirectory As DirectoryInfo = New DirectoryInfo(FtpClient, "対象フォルダのパス")
'サブフォルダの一覧取得
Dim SubFolder As DirectoryInfo
For Each SubFolder In CurrentDirectory.GetDirectories()
Console.WriteLine("[" + SubFolder.Name + "]")
Next
'ファイル一覧取得
Dim file As FileInfo
For Each file In CurrentDirectory.GetFiles()
Console.WriteLine(file.Name)
Next
' 接続解除
FtpClient.Close()
FtpClient = Nothing
Console.ReadLine()
End Sub
End Module
関連する記事 VB.net : TKMP.DLL 3.0.1 を使って IMAP でメール本文の一覧を取得する
|
|
【VB.NET : 通信の最新記事】
- VB.net(2010) : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにバイナリデータを POST する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して Google のURL短縮サービスを使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[bit.ly] を使用する( XML と TEXT )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[p.tl] を使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにデータを POST する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して http 通信を行う
- VB.net : IPアドレスを IPv4 と IPv6 に区別して取得する
- Json.NET を使用して JSON 文字列を VB.net で使用する( 逆シリアライズ )
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバーⅡ
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバー( TcpListener )
- VB.NET : TKMP.DLL でメール送信
