菜鸟问一个关于文件操作的问题

Question

请问：怎样获得一个文件夹下文件的数量

Answer 1

Private Sub Command1_Click()
Dim I As Integer
sname = Dir("c:\test\*.*")Do While Len(sname) > 0
    I = I + 1
    Debug.Print sname
    sname = Dir
Loop
MsgBox I
End Sub

Answer 2

Private Sub Command1_Click()
Dim I As Integer
sname = Dir("c:\test\*.*")Do While Len(sname) > 0
    I = I + 1
    Debug.Print sname
    sname = Dir
Loop
MsgBox I
End Sub

Answer 3

'添加一个文件控件
Private Sub Command1_Click()
    File1.Path = "C:\"
    MsgBox File1.ListCount
End Sub

Answer 4

'use fso:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim f As Folder
Set f = fso.GetFolder("c:\windows\temp\")
MsgBox f.Files.Count
End Sub