这是经过调试通过的。
全局代码:
Public Sub GetFtpFiles(fp As FtpClient, dr As String, Lst As List(of String))
For Each f As String In fp.GetFileList(dr)
lst.Add(dr & "/" & f)
Next
For Each sdr As String in fp.GetDirectoryList(dr)
GetFtpFiles(fp,dr & "/" & sdr,lst)
Next
End Sub
使用实例:
Dim ftp1 As new ftpclient
ftp1.host="110.100.100.100"
ftp1.Account = "username"
ftp1.password = "password"
Dim lst As New List(of String)
GetFtpFiles(ftp1,"/目录",Lst)
For Each s As String In lst
Output.Show(s)
Next