将含有某一特定字符的照片从原有文件夹转移到另外的文件夹

Sub MoveFilesWithSpecificChar()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim sourcePath As String
    Dim targetPath As String
    Dim specificChar As String
    
    ' 设置源文件夹路径、目标文件夹路径和特定字符
    sourcePath = "C:\SourceFolder"
    targetPath = "C:\TargetFolder"
    specificChar = "特定字符"

    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 获取源文件夹对象
    Set objFolder = objFSO.GetFolder(sourcePath)

    ' 遍历源文件夹中的每个文件
    For Each objFile In objFolder.Files
        If InStr(1, objFile.Name, specificChar, vbTextCompare) > 0 Then
            ' 如果文件名包含特定字符，则移动文件
            objFile.Move (targetPath & "\" & objFile.Name)
        End If
    Next objFile

    ' 清理对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub