Function SearchFiles(Path As String, FileType As String)Dim Files() As String '文件路径Dim Folder() As String '文件夹路径Dim a, b, c As LongDim sPath As StringsPath = Dir(Path & FileType) '查找第一个文件Do While Len(sPath) '循环到没有文件为止 a = a + 1 ReDim Preserve Files(1 To a) Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中...