>DECLARE INTEGER WinExec IN kernel32 STRING lpCmdLine, INTEGER nCmdShow >* WinExec ( "G:\BOB\BOBLINK /CIE=BO /USR=BM /MOD=ACCOUNT /MNF=BOACCOUN.DB /AUTOCLOSE" , SW_NORMAL ) >*-- Sur le conseil de bOB >cOldSetDefault = SYS(5) + CURDIR() && SET("Default") >SET DEFAULT TO ( goapp.cDirBobapp ) >WinExec( m.cValue , SW_NORMAL ) > >>
WshShell = CreateObject("WScript.Shell") ReturnCode = WshShell.Run("%windir%\notepad.exe", 1, .t.) MESSAGEBOX("Done")