FileSystemObject comprobar si ha terminado una copia de carpeta

[sagutxo]

Salu2.

ValOpciFiles es una var FileSystemObject


¿Existe alguna forma de saber si este comando ha terminado de copiar?
o aún mejor, ¿puedo bloquear el formulario mientras termina de copìar?
ValOpciFiles.CopyFolder OrigenN.Text, ValCarpeta

Gracias.

[Avellaneda]

Hola,

en vez de utilizar FSO puedes hacerlo con la API SHFileOperation, que te muestra la típica ventana con una barra de progreso y el mensaje de "Quedan xx segundos.."

Código:

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

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

Private Sub Command1_Click()
' sobreescribe sin preguntar, si el directorio destino no existe, lo crea
CopiarConProgreso "C:\Carpeta Origen", "D:\Carpeta Destino"
End Sub

Public Sub CopiarConProgreso(sFuente As String, sDestino As String)
' copia todas las carpetas y subcarpetas del directorio origen
Dim SHOp As SHFILEOPSTRUCT
With SHOp
    .hWnd = 0
    .wFunc = FO_COPY
    .pFrom = sFuente & vbNullChar & vbNullChar
    .pTo = sDestino & vbNullChar & vbNullChar
    .fFlags = FOF_ALLOWUNDO
End With
SHFileOperation SHOp
End Sub

[sagutxo]

Salu2. Muchísimas gracias. Fabulosa función.