home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / launch.vbs < prev    next >
Text File  |  2007-08-28  |  182b  |  10 lines
  1. Sub Run(ByVal sFile)
  2.     Dim shell
  3.     Set shell = CreateObject("WScript.Shell")
  4.     shell.Run Chr(34) & sFile & Chr(34), 1, false
  5.     Set shell = Nothing
  6. End Sub
  7.  
  8. Run "CD-ROM.exe"
  9.  
  10.