提交 99a80520 authored 作者: Jeff Lenk's avatar Jeff Lenk

FS-4768 windows fix long term initial build problem

上级 f9d4e290
...@@ -97,9 +97,13 @@ End Sub ...@@ -97,9 +97,13 @@ End Sub
Sub GetCompressionTools(DestFolder) Sub GetCompressionTools(DestFolder)
Dim oExec Dim oExec
Dim tries
If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
If Not FSO.FileExists(DestFolder & "7za.exe") Then tries = 0
If Not FSO.FileExists(DestFolder & "7za.tag") Then While Not FSO.FileExists(DestFolder & "7za.exe") And tries < 2
WScript.Sleep(Int(10000*Rnd))
If Not FSO.FileExists(DestFolder & "7za.tag") And Not FSO.FileExists(DestFolder & "7za.exe") Then
Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True) Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True)
MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time") MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time")
MyFile.Close MyFile.Close
...@@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder) ...@@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder)
FSO.DeleteFile DestFolder & "7za.tag" ,true FSO.DeleteFile DestFolder & "7za.tag" ,true
Else Else
WScript.Sleep(5000) WScript.Sleep(5000)
tries = tries + 1
End If End If
End If WEnd
End Sub End Sub
Sub GetWgetEXE(DestFolder) Sub GetWgetEXE(DestFolder)
......
Markdown 格式
0%
您添加了 0 到此讨论。请谨慎行事。
请先完成此评论的编辑!
注册 或者 后发表评论