Do\r
WScript.Echo OExec.StdOut.ReadLine()\r
Loop While Not OExec.StdOut.atEndOfStream\r
- If FSO.FileExists(Left(Archive, Len(Archive)-3))Then \r
+ If FSO.FileExists(Left(Archive, Len(Archive)-3))Then\r
+ WScript.Sleep(100)\r
+ FSO.DeleteFile UtilsDir & batname, True \r
Set MyFile = fso.CreateTextFile(UtilsDir & batname, True)\r
MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & quote & " -y -o" & quote & DestFolder & quote )\r
MyFile.Close\r
WScript.Sleep(500)\r
FSO.DeleteFile Left(Archive, Len(Archive)-3) ,true \r
End If\r
- If FSO.FileExists(Left(Archive, Len(Archive)-3) & "tar")Then \r
+ If FSO.FileExists(Left(Archive, Len(Archive)-3) & "tar")Then \r
+ WScript.Sleep(100)\r
+ FSO.DeleteFile UtilsDir & batname, True \r
Set MyFile = fso.CreateTextFile(UtilsDir & batname, True)\r
MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & "tar" & quote & " -y -o" & quote & DestFolder & quote )\r
MyFile.Close\r