VBA filesystemobject复制

VBA (Visual Basic for Applications) 的 FileSystemObject 是一个内置的对象，用于在 Windows 文件系统上执行文件和目录操作，包括复制。你可以使用它来复制文件或整个文件夹。下面是一个简单的例子，展示如何使用 FileSystemObject 来复制文件：

Sub CopyFile(ByVal sourcePath As String, ByVal destinationPath As String)
    Dim fso As Object ' 创建 FileSystemObject 对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查源文件是否存在
    If Not fso.FileExists(sourcePath) Then
        MsgBox "Source file does not exist!"
        Exit Sub
    End If
    
    ' 开始复制文件
    On Error Resume Next ' 捕获可能出现的错误
    fso.CopyFile sourcePath, destinationPath ' 把源路径复制到目标路径
    On Error GoTo 0 ' 错误恢复默认处理
    
    If Err.Number <> 0 Then ' 如果有错误发生
        MsgBox "Error occurred: " & Err.Description
        Err.Clear ' 清除错误
    Else
        MsgBox "File copied successfully to " & destinationPath
    End If
    
    Set fso = Nothing ' 释放 FileSystemObject 对象
End Sub

在这个示例中，你需要将 `sourcePath` 和 `destinationPath` 替换为你实际想要复制的文件路径。运行此宏后，它会从源路径复制文件到指定的目标路径。