FS-4768 windows fix long term initial build problem

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index d47ccbd1b14f18ac1b7a0b570429a84ed7c983b0..887415f4373f80c58cd936b4579cc5b8849868d1 100644 (file)
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -97,9 +97,13 @@ End Sub
 \r
 Sub GetCompressionTools(DestFolder)\r
        Dim oExec\r
+       Dim tries\r
+\r
        If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If\r
-       If Not FSO.FileExists(DestFolder & "7za.exe") Then \r
-               If Not FSO.FileExists(DestFolder & "7za.tag") Then \r
+       tries = 0\r
+       While Not FSO.FileExists(DestFolder & "7za.exe") And tries < 2\r
+               WScript.Sleep(Int(10000*Rnd)) \r
+               If Not FSO.FileExists(DestFolder & "7za.tag") And Not FSO.FileExists(DestFolder & "7za.exe") Then \r
                        Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True)\r
                        MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time")\r
                        MyFile.Close\r
@@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder)
                        FSO.DeleteFile DestFolder & "7za.tag" ,true \r
                Else\r
                        WScript.Sleep(5000)\r
+                       tries = tries + 1\r
                End If  \r
-       End If  \r
+       WEnd    \r
 End Sub\r
 \r
 Sub GetWgetEXE(DestFolder)\r