set fso=new filesystemobject
fso.copyfile "file1","file2",true

Public Const FO_COPY = &H2&
Public Const FO_DELETE = &H3&
Public Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
End Type

Public Const FO_MOVE = &H1&
Public Const FO_RENAME = &H4&
Public Const FOF_SILENT = &H4
Public Const FOF_SIMPLEPROGRESS = &H100
Public Const FOF_NOCONFORMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_RENAMEONCOLLISION = &H8

Public Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Sys As SHFILEOPSTRUCT

Public Function MyCopyFile(NameFileFrom As String, NameFileTo As String) As Long
    Sys.wFunc = FO_COPY
    Sys.pFrom = NameFileFrom
    Sys.pTo = NameFileTo
    Sys.hWnd = frmMain.hWnd
    Sys.fFlags = FOF_SILENT + FOF_NOCONFORMATION
    Call SHFileOperation(Sys)
    MyCopyFile = Sys.fAnyOperationsAborted
End Function