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