Change files attributes

[antistar]

Does anyone know how to change the attributes of several files to read-only with LISP?

Edited October 31, 2014 by antistar

[BIGAL]

You can do it with VLisp this has been commented on before search here.

[antistar]

Thanks Bigal, for reply.

I found this routine, but it only works for one file. I would like to change several files at once.

(defun c:SetRO (/ afile fso ofile ro)
;;by stig.madsen
 (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)
)

[MSasu]

Just build-up the list of files (see VL-DIRECTORy-FILES function) and use FOREACH to adjust their properties.

An alternative for adjusting the properties of files is DOS_ATTRIB from DosLIB pack (freeware); please note that this supports wildcard characters.

[CheSyn]

Just build-up the list of files (see VL-DIRECTORy-FILES function) and use FOREACH to adjust their properties.

An alternative for adjusting the properties of files is DOS_ATTRIB from DosLIB pack (freeware); please note that this supports wildcard characters.

 

Would calling the LISP from a script, and running a batch through ScriptPro work as well? Perhaps a more simplistic approach?

[BIGAL]

Re script change (defun c:SetRO (/ afile fso ofile ro) to (defun SetRO (afile / fso ofile ro)

 

The script

(load "setro")

(setro "C:\acadtemp\dwg1")

(setro "C:\acadtemp\dwg2")

[/code]

[asos2000]

See this

http://www.lee-mac.com/bfind.html