Dim FileNames() As String
　　s = Dir("filepath\*.*")
　　If s <> "" Then
　　 ReDim FileNames(0) As String
　　 i = 1
　　 s = Dir()
　　 While s <> ""
　　 ReDim Preserve FileNames(i) As String
　　 FileNames(i) = s
　　 i = i + 1
　　 s = Dir()
　　 Wend
　　End If