循环遍历子目录下所有文件

minyo

我想遍历A文件夹所有子目录下的所有文件。代码如下。实际执行中，能遍历子目录下文件，但是在退出子目录DIR当前目录下的其他文件时出错。为什么呢？

Sub a()
XunHuan ("E:\A")
End Sub

Sub XunHuan(FP As String)
Dim FN As String
    FN = Dir(FP & "\*.*", vbDirectory)
Do While FN <> "" And FN <> ThisWorkbook.Name
    'DO STH
    If (GetAttr(FP & "\" & FN) And vbDirectory) = vbDirectory Then
        If FN <> "." And FN <> ".." Then
            XunHuan FP & "\" & FN
        End If
    End If
    FN = Dir
Loop

kevinchengcw

dir是全局的，不能嵌套使用，改用FSO

ykcbf1100

你还是上个附件吧，容易解决问题

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
参考下

cidanji

minyo

感谢！或许确实是DIR只能前进递归，因为我试了多级可用，但是不能后退递归。监视窗口虽然显示 FP（文件地址）在后退时可以回归上级目录，但就是DIR不成。
那就暂时这样吧。用FSO也成。
感谢！

snqig

Sub XunHuan(FP As String)
    Dim FN As String
    FN = Dir(FP & "\*.*", vbDirectory)

    Do While FN <> "" And FN <> ThisWorkbook.Name
        ' DO STH
        If (GetAttr(FP & "\" & FN) And vbDirectory) = vbDirectory Then
            If FN <> "." And FN <> ".." Then
                XunHuan FP & "\" & FN
            End If
        End If
        FN = Dir ' 获取下一个文件或目录的名称

        ' 添加对 FN 是否为空的检查
        If FN = "" Then
            Exit Do
        End If
    Loop
End Sub