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

个人建议你不要心太大，否则容易失控，做多错多。

将下面的代码复制到全局代码中：

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(f)
    Next
    For Each sdr As String in fp.GetDirectoryList(dr)
        GetFtpFiles(fp,sdr,lst)
    Next
End Sub

以后就可以在Foxtable中：

Dim lst As New List(of String)

For Each s As String In GetFtpFiles(ftp,"路径",Lst)

   Output.Show(s)

Next

定义函数GetFtpFiles的这段代码使用了递归，没有经过测试，请自行调试。

这是经过调试通过的。

全局代码：

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