利用VBA读取文件夹中所有内容，非计算机出身的救星

通览文件夹

网上看了很多，非计算机专业出身的我看着实在头疼

最后还是自己抽了一个简单的程序出来，希望对大家有帮助

Sub 遍历文件夹()

file = InputBox("输入需要遍历的文件夹路径：") '这里会显示一个对话窗口，输入目标文件夹, 如(D:\目标文件名)

Set f = CreateObject("Scripting.FileSystemObject")
Set f0 = f.GetFolder(file)  '到这里程序已经进入目标文件夹，f0就是了

For Each f01 In f0.Files  'f0.file为文件夹中的文件

 MsgBox f01.Name  'f01.Name为子文件的名称
Next

For Each f02 In f0.subfolders   'f0.subfolder为文件夹中的子文件夹
 MsgBox f02.Name  'f02.Name为子文件夹的名称
 Dir f02

 'for each f03 in f02.subfolders'遍历子文件夹中的文件夹
 'for each f03 in f02.fies'遍历子文件夹中的文件
next
End Sub
'若有多层子文件夹，在第 2 个for循环中添加循环嵌套