如何遍历文件夹

Question

用Scripting库中的FSO对象，或者用DIR语句，遍历子文件夹需要递归。

Answer 1

来个简单的看看：
Sub AllFiles(ByVal FromPath As String)
    Dim FSO As New FileSystemObject, sFold As Folder, sFile As File
    For Each sFold In FSO.GetFolder(FromPath).SubFolders
        AllFiles sFold
    Next
    For Each sFile In FSO.GetFolder(FromPath).Files
        Debug.Print sFile
    Next
End Sub

Answer 2

Public Fso As Object
 Sub getFldList()
     Set Fso = CreateObject("Scripting.FileSystemObject")
     Fldnm (CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "\")
 End Sub
 Function Fldnm(pth$)
     Dim Fld    
    [A65536].End(3)(2) = pth
     For Each Fld In Fso.getfolder(pth).subfolders
         Fldnm (Fld)
     Next
 End Function
看看这个遍历文件夹下的文件夹
http://club.excelhome.net/blog-238368-1693.html
整理的材料fso，供参考

Answer 3

Dim strFile As StringstrFile = Dir("D:\test\*.txt")
Do Until strFile = ""
    '在这里写读文件的代码
    '......    strFile = Dir()
Loop

Answer 4

可以用批处理
1.在桌面建立1.txt文件，打开输入一串 tree c: /f>tree.txt，保存关闭。
2.将1.txt改名为1.bat，然后双击1.bat。
3.打开桌面上生成的tree.txt就是你想要的了。