VBA获取指定目录下的所有文件目录信息

1.代码介绍

        这段VBA（Visual Basic for Applications）代码用于创建一个Excel宏，该宏用于生成文件夹中所有文件的列表，并显示文件名、大小以及创建、修改和访问日期等详细信息。

用于获取检索指定文件夹及其子文件夹内的文件时可用该方法导出。 

Sub test()
On Error Resume Next
  Dim arr(1 To 10000) As String
  Dim f, i, k, f2, f3, x
  Dim arr1(1 To 100000, 1 To 6) As String, q As Integer
  Dim fso As Object, myfile As Object
  arr(1) = Application.InputBox("Please the path") & "/"
  
  i = 1: k = 1
  Do While i < UBound(arr)
    If arr(i) = "" Then Exit Do
    f = Dir(arr(i), vbDirectory)
    Do
      If InStr(f, ".") = 0 And f <> "" Then
        k = k + 1
        arr(k) = arr(i) & f & "\"
      End If
      f = Dir
    Loop Until f = ""
    i = i + 1
  Loop
  '*******下面是提取各个文件夹的文件***
  Set fso = CreateObject("Scripting.FileSystemObject")
  For x = 1 To UBound(arr)
      If arr(x) = "" Then Exit For
       f3 = Dir(arr(x) & "*.*")
     Do While f3 <> ""
            If InStr(