You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

4 lines
185 B

  1. Const Quote = """"
  2. Set Shell = CreateObject("WScript.Shell")
  3. Shell.CurrentDirectory = WScript.Arguments(1)
  4. command = Replace(WScript.Arguments(0),"~",Quote)
  5. Shell.Run command, 0, False