|
Set WshShell = CreateObject( "WScript.Shell" )
strCommand1 = " mode con: cols=120 "
strCommand2 = " set PATH=C:\Program Files\Java\jdk1.5.0_11\bin;%PATH% "
strCommand3 = " set CLASSPATH=.;.\swing-layout-1.0.jar "
strCommand4 = " prompt java$G"
strCommand = "cmd.exe /k" & strCommand1
strCommand = strCommand & "&" & strCommand2
strCommand = strCommand & "&" & strCommand3
strCommand = strCommand & "&" & strCommand4
Call WshShell.Run( strCommand, 3 )
| |