Option Base 1
Public Sub Create_Directory_Array()
    Dim DirectoryFiles()
    ffile = Dir("*.*")
    Do While ffile <> ""
         If ffile <> "" Then
             ReDim Preserve DirectoryFiles(Count)
             DirectoryFiles(Count) = ffile
             Count = Count + 1
         End If
         ffile = Dir()
    Loop
End Sub