If arc.IsValidZipFile( ecmFolder1&"/"& str) Then
Log(" --- "&str&" is VALID zip")
' could not use ArchiverPlusZip UnZip... generated error looking for DoEvents!!!!!
'arc.UnZip(File.Combine( ecmFolder1,str), File.Combine( ecmFolder,newfld), "Archiver" )
arc1.AsyncUnZip(ecmFolder1, str, ecmFolder&"/"&newfld, "unzip")
Else
Log(" --- "& str&" is NOT VALID zip")
delzip(str)
End If