VBA copy粘贴文件夹中的所有文件

Sub CopyFilesInFolder()
    Dim fso As Object
    Dim sourceFolder As Object
    Dim destinationFolder As Object
    Dim file As Object
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置源文件夹和目标文件夹路径
    Set sourceFolder = fso.GetFolder("源文件夹路径")
    Set destinationFolder = fso.GetFolder("目标文件夹路径")
    
    ' 遍历源文件夹中的所有文件
    For Each file In sourceFolder.Files
        ' 复制文件到目标文件夹
        file.Copy destinationFolder & "\" & file.Name
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set sourceFolder = Nothing
    Set destinationFolder = Nothing
    Set fso = Nothing
    
    MsgBox "文件复制完成！"
End Sub