VB6获取指定目录里的所有文件路径源代码分享

Dim xlist As String

Private Sub Command1_Click()

    Dim fso As Object

    Dim folder As Object

    Dim file As Object

    Dim filePath As String

    Dim folderPath As String

    Dim subFolder As Object

    ' 创建FileSystemObject实例

    Set fso = CreateObject("Scripting.FileSystemObject")

    xlist = ""

    ' 设置目录路径

    folderPath = Text2.Text  '@@@@@这里就是你要获取的目录

    ' 获取目录对象

    Set folder = fso.GetFolder(folderPath)

    ' 递归遍历目录

    RecursiveFolderTraversal folder, fso

    ' 清理

    Set file = Nothing

    Set folder = Nothing

    Set subFolder = Nothing

    Set fso = Nothing

    Text1.Text = xlist

End Sub

Sub RecursiveFolderTraversal(folder As Object, fso As Object)

    Dim file As Object

    Dim subFolder As Object

    ' 遍历文件

    For Each file In folder.files

        ' 获取文件路径

        filePath = file.Path

        ' 输出文件路径

        Print filePath

        xlist = xlist & vbCrLf & filePath

    Next file

    ' 遍历子目录

    For Each subFolder In folder.SubFolders

        ' 递归调用

        RecursiveFolderTraversal subFolder, fso

    Next subFolder

End Sub