Detectar la finalización de un FileCopy

[ci2000]

Hola, en un botón quiero colocar:

FileCopy origen, destino
MsgBox "Copia terminada"

El problema que se me presenta es que al comenzar a copiar el archivo inmediatamente muestra el mensaje Copia terminada.

Quiero que este mensaje aparezca una vez que el archivo se terminó de copiar.

Desde ya, muchas gracias por las respuestas.
Saludos

[culd]

Crea una funcion para verificar si existe un archivo, y con un do while archivo no existe esperas que exista

[ci2000]

culd, gracias por responder.

No sé si te entendí bien. Seguramente tu te refieres a que el archivo que debo verificar si existe, es uno de los que estoy copiando. Si es así, en realidad no me sirve tu método porque esta copia es una actualización, es decir ese archivo que estoy copiando ya existe en el destino y lo estoy reemplazando por uno nuevo.

Saludos

[culd]

Iniciado por ci2000

culd, gracias por responder.

No sé si te entendí bien. Seguramente tu te refieres a que el archivo que debo verificar si existe, es uno de los que estoy copiando. Si es así, en realidad no me sirve tu método porque esta copia es una actualización, es decir ese archivo que estoy copiando ya existe en el destino y lo estoy reemplazando por uno nuevo.

Saludos

Borra el archivo primero... y usa un while para verificar si existe el archivo que estas creando

O sino de ultima usa un doevent para esperar a que termine el copy

[Avellaneda]

Iniciado por ci2000

Hola, en un botón quiero colocar:

FileCopy origen, destino
MsgBox "Copia terminada"

El problema que se me presenta es que al comenzar a copiar el archivo inmediatamente muestra el mensaje Copia terminada.

Quiero que este mensaje aparezca una vez que el archivo se terminó de copiar.

Desde ya, muchas gracias por las respuestas.
Saludos

Hola, puedes utilizar la API SHFileOperation que mientras está copiando muestra la tipica ventana con una barra de progreso y el texto "Quedan xx segs"

Código:

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_COPY = &H2

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
End Type


Private Sub Command1_Click()
ProgresoCopia "c:\MisAplicaciones\Archivo.xxx", "D:\MisCopias\copia de Archivo.xxx"
End Sub

Public Sub ProgresoCopia(sFuente As String, sDestino As String)
Dim SHOp As SHFILEOPSTRUCT
With SHOp
    .hWnd = 0
    .wFunc = FO_COPY
    .pFrom = sFuente
    .pTo = sDestino
End With
SHFileOperation SHOp
End Sub

Puedes copiar un archivo en concreto o todo un directorio.

[ci2000]

Muchas gracias por responder.

Saludos