Detect Read-Only file attribute

[msretenovic]

Hello all,

I'm writing a routine and have come across a slight snag. I have this code:

 
(if (not (vl-catch-all-apply 'vla-open (list dbxDoc dwg)))
  (progn
	;;do my stuff here
	(vla-saveas- dbxDoc dwg)
  )
)

This works really well until I come to a file that is Read-Only . It will do as I expect when the file is Read-Only when someone has it open, but if it's file attribute is Read-Only, it doesn't catch it . Does any know a way around this or how to check to see if a file has a Read-Only attribute ?

TIA

[Mike.Perry]

Hi Mike

Check out the following article by Stig Madsen -

Scripting objects

Way over my head but I'm pretty sure you can/could achieve what you're after using the methods described in the article.

Have a good one, Mike

[RobertB]

Here is a simple method too:

(defun IsRO (fileN / fileH)
 (cond ((setq fileH (open fileN "a"))
        (close fileH)))
 (not fileH))

[msretenovic]

Robert,

That is exactly what I was looking for . So simple, yet so effective .



Thanks

[RobertB]

Glad I could help!