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

1楼

baoxyang 发表于：2010/5/19 16:51:00

请教各位！在本地电脑上

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

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

2楼

狐狸爸爸 发表于：2010/5/19 17:00:00

For Each foundFile As String In Filesys.GetFiles("c:\data\", FileIO.SearchOption.SearchAllSubDirectories)
Output.Show(foundFile)
Next

3楼

baoxyang 发表于：2010/5/19 17:27:00

谢了！又学一招了！！！

4楼

baoxyang 发表于：2010/5/19 22:21:00

如何得到远程文件GetFileList目录下所有文件名（含路径）？请老大指点！！谢谢！！！

5楼

狐狸爸爸 发表于：2010/5/20 0:50:00

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

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

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)

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

[此贴子已经被作者于2010-5-20 0:52:29编辑过]

6楼

baoxyang 发表于：2010/5/20 9:13:00

谢了！我会注意的。

7楼

baoxyang 发表于：2010/5/20 9:27:00

Dim lst As New List(of String)

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

Output.Show(s)

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

8楼

狐狸爸爸 发表于：2010/5/20 9:48:00

那就算了吧

9楼

baoxyang 发表于：2010/5/20 9:52:00

以下是引用狐狸爸爸在2010-5-20 0:50:00的发言：

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

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

以后就可以在Foxtable中：

Dim lst As New List(of String)

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

Output.Show(s)

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

[此贴子已经被作者于2010-5-20 0:52:29编辑过]

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

10楼

baoxyang 发表于：2010/5/20 9:53:00

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]