Browse Source

Z991239-5505 #comment 移除WIN的vbs启动执行脚本

80374374 1 year ago
parent
commit
c846e95399

+ 0 - 23
addin/startup_scripts/spexplorer.vbs

@@ -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

+ 0 - 23
addin/startup_scripts/spexplorerfast.vbs

@@ -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

+ 0 - 23
addin/startup_scripts/spexplorertest.vbs

@@ -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 --test"
-Run bin_path
-
-Sub Run(ByVal sFile)
-Dim shell
-	Set shell = CreateObject("WScript.Shell")
-	shell.Run sFile, 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