codice:
Dim NomiFile() As String
Dim FileTemp As String
Dim NomeCartella As String

ReDim NomiFile(0)
NomeCartella = "C:\"
FileTemp = Dir(NomeCartella)

Do Until FileTemp = ""
  NomiFile(UBound(NomiFile)) = FileTemp
  ReDim Preserve NomiFile(UBound(NomiFile) + 1)
  FileTemp = Dir
Loop
If UBound(NomiFile) > 0 Then
  ReDim Preserve NomiFile(UBound(NomiFile) - 1)
End If