VBA，遍历指定文件夹里指定类型的文件，并输出文件名与地址

在VBA（Visual Basic for Applications）中，你可以使用File System Object (FSO) 来遍历指定文件夹及其子文件夹，找出特定类型的文件（例如.txt、.docx等）。以下是一个基本的示例，它会列出所有`.txt`文件的名称和路径：

Sub ListTextFiles()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim filePath As String
    
    '创建FSO对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '指定文件夹路径
    Set folder = fso.GetFolder("C:\Your\Folder") ' 请将路径替换为你需要的目录
    
    '遍历文件夹内的所有文件
    For Each file In folder.Files
        If Right(file.Name, 4) = ".txt" Then ' 检查是否是.txt文件
            filePath = folder.Path & "\" & file.Name
            Debug.Print "文件名: " & file.Name & ", 文件地址: " & filePath
        End If
    Next file
    
    Set fso = Nothing ' 清理内存
End Sub

在这个例子中，我们首先创建了一个`FileSystemObject`，然后获取了指定文件夹。接着，我们在文件夹的`Files`集合上迭代，检查每个文件是否以".txt"结尾。如果是，我们就把文件的完整路径打印出来。