Sub unzip_UnZipDone( err As Boolean, no As Int)
' handle file if needed
Log(ABMShared.CurrDT& " Unzipdone - completed without error? "&err& " num files:"&no )
If err = False Then
Log(" --- file did not pass unzip - delete it if we can: " & currdel)
delzip(currdel)
Return
End If
Wait For (File.CopyAsync(ecmFolder1,currdel,base_ecm&"/hist",currdel)) Complete (Success As Boolean)
'Log("file copy to hist Success: " & Success)
If Success Then
Log(" --- Did copy file to hist: " & currdel)
Else
Log(" --- Did not copy file due to copy failure: " & currdel)
End If
delzip(currdel)
End Sub