利用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为子文件的名称NextFor Each f02 In f0.subfolders   'f0.subfolder为文件夹中的子文件夹    MsgBox f02.Name  'f02.Name为子文件夹的名称NextEnd Sub'若有多层子文件夹，在第 2 个for循环中添加循环嵌套