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

请教各位！在本地电脑上

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

就如：远程文件GetFileList效果一样？谢谢！！

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

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

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的这段代码使用了递归，没有经过测试，请自行调试。

谢了！我会注意的。

Dim lst As New List(of String)

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

   Output.Show(s)

Next

提示错误，“表达式不产生值”，请老大指点！

测试了，这段代码有问题。

算了，再想办法。谢老大！