主题：如何得到目录下所有文件的个数？（目录下含子目录，子目录中又子目录）谢谢！！

这是经过调试通过的。

全局代码：

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