使用VBA在循环中跨文件夹复制和粘贴

Sub CopyFiles()
    Dim fso As Object
    Dim sourceFolder As Object
    Dim targetFolder As Object
    Dim file As Object
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取源文件夹的引用
    Set sourceFolder = fso.GetFolder("C:\SourceFolder")
    
    ' 获取目标文件夹的引用
    Set targetFolder = fso.GetFolder("C:\TargetFolder")
    
    ' 遍历源文件夹中的所有文件
    For Each file In sourceFolder.Files
        ' 复制文件到目标文件夹
        fso.CopyFile file.Path, targetFolder.Path & "\" & file.Name
        
        ' 如果需要，可以使用以下代码移动源文件到另一个文件夹
        ' fso.MoveFile file.Path, "C:\BackupFolder\" & file.Name
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set targetFolder = Nothing
    Set sourceFolder = Nothing
    Set fso = Nothing
End Sub