23 lines
566 B
Plaintext
23 lines
566 B
Plaintext
|
|
Option Explicit
|
|
|
|
Dim fsObj
|
|
Dim wshShell
|
|
Dim scriptDir
|
|
Dim strCommand1
|
|
Dim strCommand2
|
|
|
|
Set fsObj = CreateObject("Scripting.FileSystemObject")
|
|
Set wshShell = WScript.CreateObject("WScript.Shell")
|
|
|
|
scriptDir = fsObj.GetParentFolderName(WScript.ScriptFullName)
|
|
|
|
strCommand1 = Chr(34) & scriptDir & "\.vscode\pyenv.bat" & Chr(34)
|
|
strCommand2 = Chr(34) & scriptDir & "\.vscode\vsc.bat" & Chr(34)
|
|
|
|
' x = msgbox(strCommand1,0, "Launch Command")
|
|
' x = msgbox(strCommand2,0, "Launch Command")
|
|
|
|
Call wshShell.Run(strCommand1, 1, True)
|
|
Call wshShell.Run(strCommand2, 0, True)
|