Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Use array to store a list of files

Sub XLFiles()     Dim FName As String     Dim arNames() As String     Dim myCount As Integer          FName = Dir("C:\*.xls*")     Do Until FName = ""         myCount = myCount + 1         ReDim Preserve arNames(1 To myCount)         arNames(myCount) = FName         FName = Dir     Loop End Sub