VBA 中的文件搜索

在VBA中，文件搜索是一项非常有用的功能。它允许我们通过编程来搜索文件夹中的文件，以便找到我们需要的特定文件。无论是在处理大量文件还是只是查找某个特定文件时，文件搜索都可以帮助我们轻松快捷地完成任务。

vba
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

vba
Sub FileSearch()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\目标文件夹路径")
    
    For Each file In folder.Files
        If LCase(Right(file.Name, 4)) = ".txt" Then '搜索.txt文件
            Debug.Print file.Name
        End If
    Next file
    
    Set fso = Nothing
    Set folder = Nothing
    Set file = Nothing
End Sub

vba
Sub CopyImages()
    Dim fso As Object
    Dim sourceFolder As Object
    Dim targetFolder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set sourceFolder = fso.GetFolder("C:\源文件夹路径")
    Set targetFolder = fso.GetFolder("C:\目标文件夹路径")
    
    For Each file In sourceFolder.Files
        If LCase(Right(file.Name, 4)) = ".jpg" Or LCase(Right(file.Name, 5)) = ".jpeg" Or LCase(Right(file.Name, 4)) = ".png" Then '搜索图片文件（.jpg、.jpeg、.png）
            file.Copy targetFolder.Path & "\" & file.Name '复制文件到目标文件夹
        End If
    Next file
    
    Set fso = Nothing
    Set sourceFolder = Nothing
    Set targetFolder = Nothing
    Set file = Nothing
End Sub