[VB] capire quando un operazione è completata...

[Mr. kharon]

Il mio problema è questo: devo copiare un file e poi, subito dopo, devo modificarne alcuni bytes...
per copiare uso Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
e fin qui tutto a posto... anche per modficare non ci sono problemi... l'unico problema è che devo modficare appena ha finito l'operazione di copia...
Come faccio a dire al programma di iniziare a modificare appena ha finito di copiare?

[xegallo]

potresti fare così

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103&

Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long

Sub ShellAndWait(sFile As String, Visualizzazione As Long)
Dim hProcess As Long
Dim ProcessId As Long
Dim CodExit As Long

    ProcessId = Shell(sFile, Visualizzazione)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
    Do
        Call GetExitCodeProcess(hProcess, CodExit)
        DoEvents
    Loop While CodExit = STATUS_PENDING

    Call CloseHandle(hProcess)
End Sub

per usarla

Call ShellAndWait("command.com /c xcopy c:\autoexec.bat d:\", vbHide)