我想知道一个文件夹下有多少个文件，这些文件的后缀名可能不相同？我不知道怎么实现

Question

我想用dir命令来实现，但是我在msdn中查没有这个功能，看看大家有什么办法不^-^

Answer 1

Dim MyFile, MyPath, MyName, nMyPath = "c:\*.*"   ' 指定路径。
MyName = Dir(MyPath, vbHidden + vbNormal) ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   n = n + 1
   MyName = Dir   ' 查找下一个。
Loop
Debug.Print n

Answer 2

Private Sub Command1_Click()
Dim cPath, cName, n
cPath = "c:\"
cName = Dir(cPath, vbHidden + vbNormal)
Do While cName <> ""
   n = n + 1
   cName = Dir
Loop
MsgBox n
End Sub

Answer 3

Set fso = CreateObject("scripting.FileSystemObject")
MsgBox fso.GetFolder("c:\").Files.Count