ReDim 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) = Folderpath

ReDim Preserve只能改变数组最末维大小

参考：http://club.excelhome.net/thread-1229630-1-1.html