Lago
13 lines
332 B
Plaintext
13 lines
332 B
Plaintext
Option Explicit
|
|
|
|
Dim shell
|
|
Dim projectPath
|
|
Dim command
|
|
|
|
Set shell = CreateObject("WScript.Shell")
|
|
projectPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
|
|
command = "cmd.exe /c cd /d """ & projectPath & """ && uv run kvm-switch"
|
|
|
|
' Run hidden and do not wait.
|
|
shell.Run command, 0, False
|