计算文件夹和子文件夹中的所有文件

Question

我正在使用visual basic，我想要计算文件夹及其子文件夹中存在的所有文件..我试过这个：

Dim counter = My.Computer.FileSystem.GetFiles("C:\Folder") MsgBox("number of files is " & CStr(counter.Count))

但它只计算 C：\ Folder 中的文件和 C：\ Folder \ Sub-Folder \ AnotherSubFolder 中的不 我该怎么办？ 感谢您的帮助！

Answer 1

使用此处定义的Directory.GetFiles()：https://msdn.microsoft.com/en-us/library/ms143316(v=vs.110).aspx

所以你只需使用

Dim counter As Integer = Directory.GetFiles(someString, "*.*", SearchOption.AllDirectories).Length;
MsgBox("Number of files is : " + counter)

someString是您要从

开始的顶级目录

"*.*"是您要匹配的搜索模式。这将获取所有文件。例如，如果您只想要文本文件，则可以执行"*.txt"。

SearchOption枚举有两个选项：AllDirectories或TopDirectoryOnly，如果您仅对传递的确切目录感兴趣，很明显。