更改文件的属性

菜卷鱼 · 发表于 2022-9-13 19:32:55

;;;更改文件属性，包括：-1 显示目前状态、0-正常、1-只读、2-隐藏、4-系统、9-名称、16-文件夹
;;;用得着的是 -1 0 1 2

用法:
(fileatt "d://统计.txt" 1)  文件设置为只读
(fileatt "d://统计.dwg" 1)  文件设置为只读
(fileatt "d://统计.dwg" 0)  文件设置为普通状态
(fileatt "d://统计.dwg" -1)  显示文件的属性状态

(defun fileatt (ff style / afile fso ofile ffatt)
(setq aFile (findfile ff))
(setq fso (vlax-create-object "Scripting.FilesystemObject"))
(if aFile
(progn
(setq oFile (vlax-invoke fso 'GetFile aFile))
(setq ffatt (vlax-get-property oFile 'Attributes))
(if (member style '(0 1 2 4 9 16))
(if (/= ffatt style)
(vlax-put-property oFile 'Attributes style)
)
(if (/= style -1)
(princ "\n::无效的属性")
)
)
(vlax-release-object oFile)
)
(princ "\n::无效的文件名")
)
(vlax-release-object fso)
(if (and afile (= style -1))
ffatt
)
)

lxl217114 · 发表于 2022-9-13 20:34:14

先赞再看，谢谢大佬分享

guosheyang · 发表于 2022-9-14 07:01:40

感谢长老共享代码！

liunian0524 · 发表于 2022-9-14 07:55:41

感谢分享，第一次见打赏

tigcat · 发表于 2022-9-14 08:13:18

谢谢分享源码，以后可能用的着

hzyhzjjzh · 发表于 2022-9-14 13:01:38

谢谢大佬分享

zhangcan0515 · 发表于 2022-9-14 13:03:38

前来看看学习一下

mokson · 发表于 2022-9-14 14:00:37

严重支持。

白色微風1991 · 发表于 2022-9-15 17:33:27

謝謝分享源碼，以後可能用的著

yhly555 · 发表于 2022-9-16 23:38:13

可以取消文件属性吗？

账号		自动登录	找回密码
密码			注册

[源码] 更改文件的属性