如何写一个函数，遍历一个上级目录下的文件及其子目录内的所有EXE文件，包括2级目录，3级目录，等等
我网上找到的是一个SUB，我不大会改，应为它似乎只输出一次且是Listbox格式输出，我的需求是每次找到新的文件后，将这个文件的完整路径（注意是完整路径），输出到一个文件中。而且要跳过一个特定的子目录。
在此声明，我不是伸手党，只是应为我现在学习的东西光靠源代码不能理解了，所以在此请求各位帮助我一下，谢谢啦
先放一下我学习时找到的代码

Sub GetPath(ByVal FilePath As String, ByVal list As ListBox)
      
    '获取文件路径
    FilePath = IIf(Right(FilePath, 1) = "\", FilePath, FilePath & "\")
    '获取当前目录内的文件名
    Dim FileName As String
    FileName = Dir(FilePath)    '初次使用dir函数需指明路径
      
    '使用一个循环，遍历当前目录内的文件，并逐一验证其属性
    Do While FileName <> ""
        If Right(FileName, 3) = "jpg" Then
            List1.AddItem FilePath & "\" & FileName
        End If
          
        FileName = Dir
    Loop
      
    '缺少此句只会遍历一级目录
    FileName = LCase(Dir(FilePath, vbDirectory))
      
    Dim ChildContent() As String
    Dim Count As Integer
    '获取下一级目录
    Do While FileName <> ""
        If FileName <> "." And FileName <> ".." Then
            If GetAttr(FilePath & FileName) And vbDirectory Then
                Count = Count + 1
               ReDim Preserve ChildContent(Count)
                '将下一级目录放入动态数组
                ChildContent(Count) = FilePath & "\" & FileName
            End If
        End If
          
        FileName = Dir
        DoEvents
                 
    Loop
      
    '回调自身,获取下一级目录内文件路径
    Dim i As Integer
    For i = 1 To Count
        GetPath ChildContent(i), list
    Next i
End Sub

是不是加上

If m<>"指定目录" then  m = m & "*" & p & s

递归不大会，看到有个M的注释说是存储的目录，这样子改可行么？

谢谢，受教了
我去试一下
另外，输出的完整文件路径是不是Text1.Text?这样改动是否可以达成输出文件路径的要求

改成

open (app.path & "\cptemp\" & Tag1 & ".tmp") for output as #1
Print #1,(p & s)
close #1

在论坛打字的，没有在VB编译环境里试过，有点难以看懂，抱歉
Tag1是个计数变量，每次递归完成时值+1

if n-1 then
这个IF语句感觉缺少了一些判断语句啊

不多说了，先给分
给完分风版主还是要回答一下我的疑惑啊

另外问一下
Do while是不是个循环？只要条件依旧符合，循环永不停止？
最近用Do while发现怎么都出不去，吧Do while的条件的值改一下就可以了，所以在此问一下

谢谢各位的帮助

再问个问题
这个遍历的SUB的退出判定在哪里？没找到……我需要在退出判定语句后面加上一句变量赋值语句

有人么，最后一个疑问了，回答一下啦