examples/gras/chrono/test_rl.vbs

   1 Dim oShell
   2 Dim iExitCode
   3
   4 Set oShell = WScript.CreateObject ("WSCript.shell")
   5
   6 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\chrono_multiplier",1,False)
   7
   8 Set oShell = Nothing
   9
  10 'This function returns the current directory of the script
  11 Function GetCurrentDirectory()
  12
  13         Dim sScriptFullName
  14
  15         sScriptFullName = WScript.ScriptFullName
  16         GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
  17
  18 End Function