' el primer parametro es el archivo de origen, el 2º parametro es el destino final
FileCopy "C:\archivo1.bmp", "C:\archivo.bmp"

Option Explicit
 
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long
 
Private Type SHFILEOPSTRUCT
    hWnd                            As Long
    wFunc                           As Long
    pFrom                           As String
    pTo                             As String
    fFlags                          As Long
    fAnyOperationsAborted           As Boolean
    hNameMappings                   As Long
    lpszProgressTitle               As String
End Type
 
 
Private Enum eFO
    FO_COPY = &H2&
    FO_DELETE = &H3&
    FOF_SILENT = &H4&
    FOF_NOCONFIRMATION = &H10&
    FOF_NOCONFIRMMKDIR = &H200&
    FOF_NOERRORUI = &H400&
    FOF_NOCOPYSECURITYATTRIBS = &H800&
End Enum
 
Public Sub mCopyFile(sSource As String, sTarget As String)
 
    Dim SHFileOp As SHFILEOPSTRUCT
 
    sSource = sSource & vbNullChar & vbNullChar
    sTarget = sTarget & vbNullChar & vbNullChar
 
    With SHFileOp
        .wFunc = FO_COPY
        .fFlags = FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
        .hWnd = Form1.hWnd
        .pFrom = sSource
        .pTo = sTarget
    End With
 
    Call SHFileOperation(SHFileOp)
End Sub
 

Private Sub Form_Load()
     call mCopyFile(sSource As String, sTarget As String)
End Sub

Private Sub Form_Load()
     call mCopyFile("origen", "destino") ' donde origen es el file que quieres copiar y destino es la ruta donde quieres copiarte
End Sub