Set objTextFile = objFSO.OpenTextFile(VersionFile,1)\r
Do Until objTextFile.AtEndOfStream\r
strLine = objTextFile.Readline\r
- versionPos = InstrRev(strLine, " ", -1, 1)\r
- name = Left(strLine, versionPos-1)\r
- if name = PrimaryName Then\r
- version = Right(strLine, Len(strLine) - versionPos)\r
- Wscript.Echo "Sound name: " & name & " Version " & version\r
- URL = BaseURL & "-" & name & "-" & Freq &"-" & version & ".tar.gz"\r
- Wscript.Echo "URL: " & URL\r
- WgetUnCompress URL, Showpath(DestFolder)\r
- End If\r
+ if Len(strLine) > 2 then\r
+ versionPos = InstrRev(strLine, " ", -1, 1)\r
+ name = Left(strLine, versionPos-1)\r
+ if name = PrimaryName Then\r
+ version = Right(strLine, Len(strLine) - versionPos)\r
+ Wscript.Echo "Sound name: " & name & " Version " & version\r
+ URL = BaseURL & "-" & name & "-" & Freq &"-" & version & ".tar.gz"\r
+ Wscript.Echo "URL: " & URL\r
+ WgetUnCompress URL, Showpath(DestFolder)\r
+ End If\r
+ End if\r
Loop\r
End Sub\r
\r