[VB6] Aspettare la fine della compressione di un file

[Hell_Devil]

Ciao, devo scrivere una routine che comprima un file, e al termine della compressione, il file che è stato compresso deve essere killato. il codice che uso funziona in maniera asincrona quindi non riesco a capire quando finisce la compressione (se non a video) per poter eliminare il file...

questo è il codice:

Private Sub ZIPFile (ByVal sFileToZip as string, byval sZippedFilename as string)
        dim oApp as Object

Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(sZippedFilename).CopyHere sFileToZip 'Aggiungi all'archivio già esistente sZippedFilename il file sFileToZip
<codice per aspettare la fine della compressione> 'Qui vorrei una mano per aspettare il completamento dell'operazione di sopra
kill sFileToZip
Set oApp=Nothing
End Sub

grazie in anticipo

[oregon]

Dai un'occhiata in

http://www.rondebruin.nl/windowsxpzip.htm

[Hell_Devil]

grazie oregon,

ad una prima occhiata sembra proprio quello che fa per me...
cmq se ci sono problemi ti faccio sapere

grazie ancora