Hi!
Function mRun(c)
Local oShell,Ret
oShell:=CreateObject("WScript.Shell")
Ret :=oShell:Run("%ComSpec% /c " + c , 0, .t.)
oShell:=Nil
Return iif(Ret=0,.t.,.f.)
-----------------------8<------------
Error TOleAuto/65535 : TOLEAUTO:NEW
Called from ../../legacy.prg->THROW(0)
Called from ../../legacy.prg->TOLEAUTO:NEW(0)
Called from ../../legacy.prg->CREATEOBJECT(0)
Regards,
Itamar M. Lins Jr.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
