如何：在 Visual Basic 中确定目录中文件的数目
更新：2007 年 11 月
您可以使用 My.Computer.FileSystem.GetFiles 方法返回字符串的一个只读集合，而这些字符串表示指定目录中文件的名称。然后，可以使用 Count 属性来确定文件数目。
确定目录中文件的数目
使用 GetFiles 方法返回指定目录中文件的集合。此示例返回名为 TestDir 的目录中的文件。
Dim counter As _ System.Collections.ObjectModel.ReadOnlyCollection(Of String) counter = My.Computer.FileSystem.GetFiles("C:\TestDir")使用 Count 属性确定集合中文件的数目。此示例在消息框中显示结果。
MsgBox("number of files is " & CStr(counter.Count))
示例
此示例以完整的形式显示上面的代码段，对 TestDir 中的文件进行计数，并在一个消息框中报告计数结果。
Dim counter As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)
counter = My.Computer.FileSystem.GetFiles("C:\TestDir")
MsgBox("number of files is " & CStr(counter.Count))
编译代码
此示例需要：
对 System.Collections 命名空间中的成员的访问权限。如果代码中的成员名称没有完全限定，则需要添加一条 Imports 语句。有关更多信息，请参见 Imports 语句（.NET 命名空间和类型）。
所指定位置中一个名为 TestDir 的目录。使用要检查的目录的路径替换该路径。
可靠编程
以下情况可能会导致异常：
路径由于以下原因之一而无效：它是零长度字符串；它仅包含空白；它包含无效字符；或者它是一个设备路径（以 \\.\ 开头）(ArgumentException)。
路径无效，因为它是 Nothing (ArgumentNullException)。
目录不存在，或者目录是一个文件 (DirectoryNotFoundException)。
directory 指向某个现有文件 (IOException)。
路径超过了系统定义的最大长度 (PathTooLongException)。
路径中的文件名或文件夹名包含冒号 (:)，或格式无效 (NotSupportedException)。
该用户缺少查看该路径所必需的权限 (SecurityException)。
该用户缺少必要的权限 (UnauthorizedAccessException)。
请参见
任务
如何：在 Visual Basic 中查找具有特定模式的文件
参考
My.Computer.FileSystem.GetFiles 方法