Excel VBA テクニック集
ファイルのコピー

Public Sub File_Object_Copy(From_F As String, To_F As String)
    Dim File_System As Object
    Dim File_Object As Object
    On Error Resume Next
    
    Set File_System = CreateObject("Scripting.FileSystemObject")
    Set File_Object = File_System.GetFile(From_F)
    File_Object.Copy To_F
    If Err <> 0 Then
        MsgBox "「" & From_F & "」から" _
                & "「" & To_F & "」へのコピーができませんでした。"
        Err = 0
        End If
        
    Set File_Object = Nothing
    Set File_System = Nothing
    Err = 0
End Sub