用excel vba搜索文件夹/文件

Sub SearchFiles()
    Dim fso As FileSystemObject
    Dim folderPath As String
    Dim folder As Folder
    Dim file As File
    Dim rowIndex As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Folder"
    
    ' 创建FileSystemObject对象
    Set fso = New FileSystemObject
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 初始化行索引
    rowIndex = 1
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 输出文件名到单元格
        Cells(rowIndex, 1).Value = file.Name
        
        ' 输出文件路径到单元格
        Cells(rowIndex, 2).Value = file.Path
        
        ' 更新行索引
        rowIndex = rowIndex + 1
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub