跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC

renkangjizhen

非常感谢香川群子老师的分享！

renkangjizhen

方法众多，知识丰富！

light1982

很好，学习了，谢谢分享。

fxtx

很实用啊，谢谢！

40525299999

这个已经成为经典！感谢大师

angewoshi安

标记标记标记标记标记标记标记标记标记标记标记

ludaoqi

这个才是递归吧,递归就是调用其本身.
这个思路是先判断有没有文件,有文件先保存出来,然后在IF判断有没有文件夹,有子文件夹就调用本身,在重复这操作.知道所有的文件夹都遍历完.
其实隐藏这两个IF也可以,因为条件存在是默认的.如果不满足条件for循坏就会跳过.
Sub SelectFile()

    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then Path = .SelectedItems(1) Else Exit Sub
    End With

    ActiveSheet.Cells.Clear

    Call GetFolderFiles(Path)
End Sub

Function GetFolderFiles(Path)

    Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")


    If FSO.GetFolder(Path).Files.Count > 0 Then
        For Each FileObj In FSO.GetFolder(Path).Files
            ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0) = FileObj
        Next
    End If

    If FSO.GetFolder(Path).SubFolders.Count Then
        For Each FolderObj In FSO.GetFolder(Path).SubFolders
            Call GetFolderFiles(FolderObj)
        Next
    End If
End Function

e神之路

高大上，先收藏

anabas

老师，我在研究你的遍历文件夹帖子（2015），其他都没什么问题，只是

1. If Right(myPath, 1) <> "" Then myPath = myPath & ""

复制代码

虽然有解释，但是判断右1字符的意义何在？直接判断myPath是否空值不是也可以吗？谢谢！

梦色的梦

留下记号，方便学习