Topic: How to avoid exiting while an error occurs?

[litss]

I am trying some code from others. But there is one line that just can't run properly in my thinkpad laptop. here is it
(vlax-create-object "Scripting.FileSystemObject")

I don't want the routine stop at that point, then I put an error checking for this line, but it fails.
(vl-catch-all-error-p (vlax-create-object "Scripting.FileSystemObject"))

Needs help. How can I write this error-check?

thx!

[CAB]

Try this:

Code: [Select]

(vl-catch-all-apply 'vlax-create-object (list "Scripting.FileSystemObject"))
or this:

Code: [Select]

(setq err (vl-catch-all-apply 'vlax-create-object (list "Scripting.FileSystemObject")) )
(if (vl-catch-all-error-p err)
  (alert "Failed")
)

[litss]

thx! CAB

It works:)

I've just read the help file, it seems that the vl-catch-all-apply and vl-catch-all-error-p should be used together, right?