如何生成文件夹及子目录下的所有文件清单？

用Dir命令生成文件列表。

1、Dir命令是Windows 2000“命令提示符”窗口中的一个内部命令，巧妙地加以运用，也可以生成文件列表。

2、假定要想生成“C:\Winnt\Media”文件夹森亏中的文件列表，可以在“命令提示符”窗口（依次执行“开始/程序/附件/命令提示符”，可以打开“命令提示符”窗口）的命令行上执行如坦搭下命令：Dir c:\Winnt\Media /s /4 >c:\Filelist.txt（注意各参数之间要加空格），其中“/s”表示生成文件列表时也生成子目录中的文件列表，“/4”表示用四位年份显示文件创建日期，“>c:\Filelist.txt”表示利用文件重定向功能将文件列表保存起来，建议每次生成的文件最好取不同的名称并保存到适当的目录（目录须预先创建），以防止列表文件被自动覆盖。

3、用Dir生成的文件列表可以显示文件或文件夹名称、大小、创建日期和时间等信息，还可以将文件和文件夹按一定的顺序排列，并且可以只生成具有某种属性的文件或文件夹的列表，详细用此信神法可以用“Dir ”命令得到。

4、用Tree命令生成的文件列表采用“树形”图形方式来显示，非常直观形象，对长文件名和中文的支持也最好，但只能显示文件和文件夹的名称等信息。

【引用位置】 https://blog.csdn.net/pashine/article/details/42100237

'-------------------------------------------

'获取某文件夹下的所有Excel文件

'-------------------------------------------

Sub getExcelFile(sFolderPath As String)

On Error Resume Next

Dim f As String

Dim file() As String

Dim x

k = 1

ReDim file(1)

file(1) = sFolderPath &""

End Sub

'-------------------------------------------

'获取某文件夹下的所有文件和子扰者好目录下的文件

'-------------------------------------------

Sub getAllFile(sFolderPath As String)

'Columns(1).Delete

On Error Resume Next

Dim f As String

Dim file() As String

Dim i, k, x

x = 1

i = 1

k = 1

ReDim file(1 To i)

file(1) = sFolderPath &""

'-- 获得所有子目录

Do Until i >k

f = Dir(file(i), vbDirectory)

Do Until f = ""

If InStr(f, ".") = 0 Then

k = k + 1

ReDim Preserve file(1 To k)

file(k) = file(i) &f &""

End If

f = Dir

Loop

i = i + 1

Loop

'-- 获得所有子目录下的所有文件

For i = 1 To k

f = Dir(file(i) &" . ")'通嫌塌配符 . 表示所有文件，*.xlsx Excel文件

Do Until f = ""

'Range("a" &x) = f

Range("a" &x).Hyperlinks.Add Anchor:=Range("缓铅a" &x), Address:=file(i) &f, TextToDisplay:=f

x = x + 1

f = Dir

Loop

Next

End Sub

可以弄全自动创建文伏困件夹，根据文件名关乱局联把序号文件夹创建好，然后查找一个，关联对应的保存，可以分类存储这样子

如图，缺陪念可以在这个基础上设置分类存储，创建文件夹不以文件清单名，以文件清单名关联的序号进行自动创建文件夹，保存也是全自动保存到对应创建的文件夹，加一个映射表就可以了

---