VBA 获取文件夹内的文件列表

Private strFiles(20)

Private Sub GetFiles(ByVal strFolder As String, ByVal ty As String) ' 获取文件列表

    If iFiles = 0 Then
        Erase strFiles
    End If
   
    If iFiles > 20 Then
        Exit Sub
    End If
   
    Dim FilePaths, FilePath As String
   
    FilePaths = strFolder & "\*." & ty
   
    FilePath = Dir(FilePaths)          'Dir返回匹配*.*的第一个文件名
   
    Do While FilePath <> ""
   
        strFiles(iFiles) = strFolder & "\" & FilePath
       
        iFiles = iFiles + 1
       
        FilePath = Dir        '再一次调用Dir，得到其它匹配*.*的文件名
       
    Loop
  
End Sub