VBA根据文件名中的字符串移动文件

Sub MoveFilesByString()
    Dim sourceFolder As String
    Dim destinationFolder As String
    Dim fileName As String
    Dim searchString As String
    
    ' 设置源文件夹路径
    sourceFolder = "C:\SourceFolder\"
    
    ' 设置目标文件夹路径
    destinationFolder = "C:\DestinationFolder\"
    
    ' 设置要搜索的字符串
    searchString = "特定字符串"
    
    ' 获取源文件夹中的所有文件
    fileName = Dir(sourceFolder & "*.*")
    
    ' 遍历每个文件
    Do While fileName <> ""
        ' 检查文件名中是否包含搜索字符串
        If InStr(fileName, searchString) > 0 Then
            ' 移动文件到目标文件夹
            FileCopy sourceFolder & fileName, destinationFolder & fileName
            Kill sourceFolder & fileName ' 可选：删除源文件
        End If
        
        ' 获取下一个文件
        fileName = Dir
    Loop
    
    MsgBox "文件移动完成！"
End Sub