怎样取得各级子目录下的文件名（包含全路径）。

[kuailexq2000]

要做一个替换某路径下所有文件中字符串的工具

[Tiger_Zhao]

Function SearchFiles(ByVal BasePath As String, Optional ByVal searchPattern As String = "*.*") As Collection
    Dim colPathStack As Collection, colFiles As Collection
    Dim sPath As String, sFound As String
    Set colFiles = New Collection
    Set colPathStack = New Collection
    colPathStack.Add BasePath & IIf(Right$(BasePath, 1) <> "\", "\", vbNullString)
    While colPathStack.Count <> 0
        sPath = colPathStack(1)
        colPathStack.Remove 1

        sFound = Dir(sPath & "*.*", vbDirectory + vbHidden)
        While LenB(sFound)
            If (sFound <> ".") And (sFound <> "..") Then
                If (GetAttr(sPath & sFound) And vbDirectory) <> 0 Then
                    colPathStack.Add sPath & sFound & "\"
                End If
            End If
            sFound = Dir()
        Wend

        sFound = Dir(sPath & searchPattern, vbHidden)
        While LenB(sFound)
            colFiles.Add sPath & sFound
            Debug.Print sPath & sFound
            
            sFound = Dir()
        Wend
    Wend

    Set SearchFiles = colFiles
End Function

[Dision LI]

http://d.download.csdn.net/down/1078333/wusheng68
例子