Hi Mark,

Sure. The simplest way is to use TRY...ENDTRY

TRY 
  oShell = Createobject("wscript.shell")
  oShell.Run(lcVBSFileName,1, .T.)								
CATCH TO oExp WHEN oExp.Errorno = 1426 OR oExp.Errorno = 1429 
	* Handle error here
ENDTRY	

>Is there a way to trap an error that is generated by this code?
>
>

>
>oShell = Createobject("wscript.shell")								
>oShell.Run(lcVBSFileName,1, .T.)									
>

>