read only

[clovis]

Hello,
I'd like to be able to check if a file is read-only.(with lisp?)
have you some example?
Thanks

[rkmcswain]

You could use something like this.


(defun isFileRO (fname / fso)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(if (eq :vlax-true (vlax-invoke-method fso 'FileExists fname))
(eq (logand 1 (vlax-get (vlax-invoke-method fso 'GetFile fname) "Attributes")) 1)
nil
)
)

[clovis]

Hello,
Thanks a lot rkmcswain
It works like a charm
A question though:
where did you find out about
-"Scripting.FileSystemObject"
-:vlax-true
?
Bye

[Opie]

Hello,
Thanks a lot rkmcswain
It works like a charm
A question though:
where did you find out about
-"Scripting.FileSystemObject"
-:vlax-true
?
Bye
You can try Scripting Objects I (http://www.afralisp.net/lisp/script1.htm) from Afralisp.

[RenataP]

You can try Scripting Objects I (http://www.afralisp.net/lisp/script1.htm) from Afralisp.
Thanks for the link!

Just passing through. :)

[clovis]

Thanks a lot (too) ;-))

[abdulhuck]

Hello,
I'd like to be able to check if a file is read-only.(with lisp?)
have you some example?
Thanks
Also have a look at the DosLib utility from http://www.mcneel.com (http://www.mcneel.com/). It is packed with a lot of useful functions.

Regards,
Abdul Huck

[rkmcswain]

Also have a look at the DosLib utility...

Nothing against DosLib or any other 3rd party add-on, but keep in mind when you use 3rd party applications for which you do not have the source code, you risk the chance that development for the 3rd party tool may be dropped, leaving your code with a hole when AutoCAD is upgraded.

Having said that, I believe DosLib has always been good in the past about providing timely updates when required.

[abdulhuck]

I agree with you McSwain...

Regards,

Abdul Huck