|
@@ -1,23 +0,0 @@
|
|
|
-base_dir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
|
|
|
-version_path = base_dir & "active.txt"
|
|
|
-version = ReadVersion(version_path)
|
|
|
-bin_path = base_dir & version & "\bin\spshell.exe"
|
|
|
-Run bin_path
|
|
|
-
|
|
|
-Sub Run(ByVal sFile)
|
|
|
-Dim shell
|
|
|
- Set shell = CreateObject("WScript.Shell")
|
|
|
- shell.Run Chr(34) & sFile & Chr(34), 1, false
|
|
|
- Set shell = nothing
|
|
|
-End Sub
|
|
|
-
|
|
|
-Function ReadVersion(sFile)
|
|
|
- Dim fs
|
|
|
- Dim tfs
|
|
|
- Set fs = CreateObject("Scripting.FileSystemObject")
|
|
|
- Set tfs = fs.OpenTextFile(sFile, 1, True)
|
|
|
- ReadVersion = Trim(tfs.ReadLine)
|
|
|
- tfs.Close
|
|
|
- Set tfs = Nothing
|
|
|
- Set fs = Nothing
|
|
|
-End Function
|