Sub ReadFiles()
Dim sFiles() As String
Dim sFile As String
Dim iCount As Long
iCount = 1
sFile = Dir("C:\Temp\*.*")
Do While sFile <> ""
ReDim Preserve sFiles(iCount)
sFiles(iCount) = sFile
sFile = Dir
iCount = iCount + 1
Loop
End Sub