【VBA】Copy file

VBA Code

As an example, copy the file.

Option Explicit

Sub sampleProc()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim folderPath As String
    
    'Set "File path"
    fileFullPath = "C:\Users\user\Desktop\hogehoge.txt"
    
    'Set "Folder path"
    folderPath = "C:\Users\user\Desktop\folder_001\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    'Copy file
    Call fso.CopyFile(Source:=fileFullPath, _
                      Destination:=folderPath, _
                      OverWriteFiles:=False)
    
    Set fso = Nothing
    
End Sub

Result

You copied file！

FYI No.1

Also, you can copy Multiple files by Wildcard！

Option Explicit

Sub sampleProc()
    
    Dim fso As Object
    Dim fileFullPath As String
    Dim folderPath As String
    
    'Set "File path". Use "Wildcard"
    fileFullPath = "C:\Users\user\Desktop\*.txt"
    
    'Set "Folder path"
    folderPath = "C:\Users\user\Desktop\folder_001\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")

    'Copy file
    Call fso.CopyFile(Source:=fileFullPath, _
                      Destination:=folderPath, _
                      OverWriteFiles:=False)
    
    Set fso = Nothing
    
End Sub

FYI No.2

For more information about following, see the following official online manual:

●“CopyFile method” of “FileSystemObject”