[LISP函数]：取得或附加属性到文件，文件夹～刚学vlisp请多指教！

fsxm

注：程序不检查存在性，如不存在会产生错误

2. 
   
3. (defun get-or-put-attrib (fn att / F F? FS)
   
4.   (setq        f? (if (vl-file-directory-p fn)
   
5.              'getfolder
   
6.              'getfile
   
7.            )
   
8.   )
   
9.   (setq fs (vlax-create-object "Scripting.FileSystemObject"))
   
10.   (setq f (vlax-invoke fs f? fn))
    
11.   (if (= (type att) 'int)
    
12.     (vlax-put f 'attributes att)
    
13.     (vlax-get f 'attributes)
    
14.   )
    
15. )
    
16. ;;取得属性
    
17. (get-or-put-attrib "c:/face.bmp" T)        ;返回属值
    
18. (get-or-put-attrib "C:/WINDOWS" T)        ;返回属值
    
19. ;;设定属性（如只读+隐藏）
    
20. (get-or-put-attrib "c:\\face.bmp" 35)        ;恒返回nil但属性已加上
    
21. (get-or-put-attrib "C:/WINDOWS" 35)
    

<br /> (defun get-or-put-attrib (fn att / F F? FS)<br />   (setq        f? (if (vl-file-directory-p fn)<br />              'getfolder<br />              'getfile<br />            )<br />   )<br />   (setq fs (vlax-create-object "Scripting.FileSystemObject"))<br />   (setq f (vlax-invoke fs f? fn))<br />   (if (= (type att) 'int)<br />     (vlax-put f 'attributes att)<br />     (vlax-get f 'attributes)<br />   )<br /> )<br /> ;;取得属性<br /> (get-or-put-attrib "c:/face.bmp" T)        ;返回属值<br /> (get-or-put-attrib "C:/WINDOWS" T)        ;返回属值<br /> ;;设定属性（如只读+隐藏）<br /> (get-or-put-attrib "c:\\face.bmp" 35)        ;恒返回nil但属性已加上<br /> (get-or-put-attrib "C:/WINDOWS" 35)<br />