找能够求出一个文件夹下有多少个文件的ＡＰＩ函数

Question

现在要实现求某个文件夹下的所有文件数目
比如说我Ｄ盘下test文件下有１００个文件
我想找该函数能够实现返回有求出test下有１００个文件

Answer 1

调用Scripting.FileSystemObject对象就可以了
下面是例程
Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s
    Dim i As Integer
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    i = fc.Count
    For Each f1 In fc
        s = s & f1.Name
        s = s & vbCrLf
    Next
    MsgBox s
End Sub

Answer 2

晕，内部控件就行了FileListBox1.Path="D:\Test"
Debug.Print FileListBox1.ListCount 返回文件总数当然，要注意ReadOnly System Pattern 等属性的设置，合理运用会很方便的

Answer 3

硬要用API的话那就FINDFIRST、FINDNEXT之类的