mirror of
https://github.com/opus-tango/tfc-forge-macro.git
synced 2026-07-18 07:22:43 +00:00
20 lines
556 B
Plaintext
20 lines
556 B
Plaintext
Set sh = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
sh.CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
|
|
Function QuoteForCmd(s)
|
|
QuoteForCmd = """" & Replace(s, """", """""") & """"
|
|
End Function
|
|
|
|
Dim extra, i
|
|
extra = ""
|
|
For i = 0 To WScript.Arguments.Count - 1
|
|
If Len(extra) > 0 Then extra = extra & " "
|
|
extra = extra & QuoteForCmd(WScript.Arguments(i))
|
|
Next
|
|
|
|
Dim cmdLine
|
|
cmdLine = "cmd /c uv run main.py"
|
|
If Len(extra) > 0 Then cmdLine = cmdLine & " " & extra
|
|
sh.Run cmdLine, 0, False
|