Ejemplos usando el Api de windows para Visual basic

65 - Copiar un archivo y mostrar el progreso con el Api

Volver al Listado Api -Anterior - Siguiente

El siguiente ejemplo utiliza la función Api CopyFileEx que permite copiar un archivo y poder mostrar el progreso de la misma, en este caso en un control Progressbar.

También permite visualizar el estado final de la copia y el resultado, es decir si finalizó correctamente, hubo un error o se ha canceló.

Imagen del ejemplo:

formulariopara copiar los archivos con progreso

Pasos para crear el ejemplo

Colocar los siguientes controles en un formulario llamado form1 :

Text1: Acá se debe indicar el path origen del archivo
Text2: La ruta de destino
Label1: este control Label visualiza el estado de la operación de copia, si finalizó correctente, si se canceló o hubo un error ( es el que está en color rojo )
Progressbar1: Un Progressbar para ver el progreso: La propiedad Max del msmo colocarla en 100 y la Propiedad Min en 0 (ya están por default)
Command1: Comienza la copia del archivo
Command2: Cancela la copia iniciada anteriormente.

Código fuente en el formulario

Option Explicit ' botón que copia ''''''''''''''''''''''''' Private Sub Command1_Click() Dim Ret As Long Cancelar = 0 'comenzamos Label1.Caption = "Comenzando a copiar: " & Text1 & " en: " & Text2 'Se llama al api y comienza la copia del archivo, _ pasandole las rutas y _la dirección de la función Ret = CopyFileEx(Trim$(Text1), Trim$(Text2), AddressOf CopiarArchivo, _ ByVal 0&, Cancelar, COPY_FILE_RESTARTABLE) 'Moastramos el resultado Label1.Caption = "Estado de la copia: " + IIf(Ret = 0, _ "(Error/Abortado)", _ "Copia completa") End Sub 'Este botón cancela la copia del archivo '**************************************** Private Sub Command2_Click() 'Cancela la operación Cancelar = 1 End Sub Private Sub Form_Load() Command2.Caption = "> Detener la copia" Command1.Caption = "> Comenzar la copia" Me.Caption = "Ejemplo para copiar un archivo mostrando " & _ "el progreso de la copia usando el Api" 'Este Label muestra si finalizó, _ hubo un error o se canceló la copia del archivo Label1.Caption = "" End Sub

Código fuente en el módulo bas

Option Explicit 'Constantes para el Api CopyFileEx '************************************* Public Const PROGRESS_CANCEL = 1 Public Const PROGRESS_CONTINUE = 0 Public Const PROGRESS_QUIET = 3 Public Const PROGRESS_STOP = 2 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 ' Flag para cancelar la copiar ( 0 copia, 1 cancela ) Public Cancelar 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 'mostramos el progreso en el label Form1.ProgressBar1.Value = CStr(Int((TotalBytesTransferred * 10000) / _ (TotalFileSize * 10000) * 100)) DoEvents 'continuamos la copia del fichero CopiarArchivo = PROGRESS_CONTINUE End Function

VB 6.0 - Ejemplos relacionados

Copiar archivos y mostrar el diálogo de windows de progreso de copia

Buscar en Recursos vb