myvtm/addin/startup_scripts/spexplorerfast.vbs

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