ACMAIN_CHM 提供

Public Function getFilesInFolder(sFullFileNamePattern As String) As String()
    Dim a() As String
    Dim i As Integer
    Dim sFileName As String
    i = 0
    sFileName = Dir(sFullFileNamePattern)
    Do While sFileName <> ""
        i = i + 1
        ReDim Preserve a(i) As String
        a(i - 1) = sFileName
        sFileName = Dir()
    Loop
     getFilesInFolder = a
End Function