Changing file attributes with lisp

[pcsyoga]

Is there a way I can change the attribute of a file to read-only with lisp?

[Ed Jobe]

Its built into vba, but with lisp, you can use DOSlib from www.mcneel.com. Use the dos_attrib command.

[stig.madsen]

... or write your own,

(defun SetRO (/ afile fso ofile ro)
  (cond
    ((and (setq aFile (getfiled "" "" "" 4))
          (setq fso (vlax-create-object "Scripting.FilesystemObject"))
          (setq oFile (vlax-invoke fso 'GetFile aFile))
     )
     (vlax-put-property oFile 'Attributes (setq ro (- 1 (logand 1 (vlax-get-property oFile 'Attributes)))))
     (princ (strcat "File set to " (nth ro '("Read-write" "Read-only"))))
     (vlax-release-object oFile)
     (vlax-release-object fso)
    )
  )
  (princ)
)

[pcsyoga]

Thanks everyone, Stig had what I was looking for.

[stig.madsen]

Don't forget Robert McNeel has what you are looking for. I just thought it'd be more fun to write one.

[Ed Jobe]

If you're referring to McNeel, I provided you a link in post #2.