Foro de elhacker.net

 RetO = CopyFileEx(MySelf, drive & "\" & FileName, AddressOf CopiarArchivo, _
                                 ByVal 0&, 0, COPY_FILE_RESTARTABLE)
  End If

 Option Explicit

 'Constantes para el Api CopyFileEx
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2

 'Declaración Api CopyFileEx para copiar archivos con progreso
Public Declare Function CopyFileEx Lib "KERNEL32.DLL" Alias "CopyFileExA" ( _
     ByVal lpExistingFileName As String, _
     ByVal lpNewFileName As String, _
     ByVal lpProgressRoutine As Long, _
     lpData As Any, _
     ByRef pbCancel As Long, _
     ByVal dwCopyFlags As Long) As Long

 'función para copiar
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Public Function CopiarArchivo(ByVal TotalFileSize As Currency, ByVal _
                                    TotalBytesTransferred As Currency, _
                                    ByVal StreamSize As Currency, _
                                    ByVal StreamBytesTransferred As Currency, _
                                    ByVal dwStreamNumber As Long, _
                                    ByVal dwCallbackReason As Long, _
                                    ByVal hSourceFile As Long, _
                                    ByVal hDestinationFile As Long, _
                                   ByVal lpData As Long) As Long

End Function

FileCopy rutaarchivoorigen, rutaarchivodestino