eDim Preserve file_info(1 To i, 1 To 2) As String
file_info(i, 1) = Filename
file_info(i, 2) = Folderpath
红色地方改成
ReDim Preserve file_info(1 To 2, 1 To i) As String
file_info(1, i) = Filename
file_info(2, i) = FolderpathReDim Preserve只能改变数组最末维大小
eDim Preserve file_info(1 To i, 1 To 2) As String
file_info(i, 1) = Filename
file_info(i, 2) = Folderpath
红色地方改成
ReDim Preserve file_info(1 To 2, 1 To i) As String
file_info(1, i) = Filename
file_info(2, i) = FolderpathReDim Preserve只能改变数组最末维大小