VBA-打开和过滤文件夹

Sub OpenAndFilterFolder()
    Dim fso As Object
    Dim folderPath As String
    Dim folder As Object
    Dim subFolder As Object
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "C:\ExampleFolder"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 在此处可以对文件进行处理，如打印文件名
        Debug.Print file.Name
    Next file
    
    ' 遍历文件夹中的子文件夹
    For Each subFolder In folder.SubFolders
        ' 在此处可以对子文件夹进行处理，如打印文件夹名
        Debug.Print subFolder.Name
    Next subFolder
    
    ' 释放对象
    Set file = Nothing
    Set subFolder = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

Sub FilterFolders()
    Dim fso As Object
    Dim folderPath As String
    Dim folder As Object
    
    ' 设置文件夹路径
    folderPath = "C:\ExampleFolder"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的子文件夹
    For Each subFolder In folder.SubFolders
        ' 判断文件夹名是否符合条件
        If InStr(1, subFolder.Name, "FilterKeyword", vbTextCompare) > 0 Then
            ' 在此处可以对符合条件的文件夹进行处理，如打印文件夹名
            Debug.Print subFolder.Name
        End If
    Next subFolder
    
    ' 释放对象
    Set subFolder = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub