签出属性,或在windows中其位深度(查看文件属性摘要)
-
- (defun c:test ( / app file at ) (vl-load-com)
- (if (setq file (getfiled "Directory" "" "" 16))
- (progn
- (setq app (vlax-get-or-create-object "Scripting.FileSystemObject"))
- (setq file (vlax-invoke app 'getfile file))
- (setq at (vlax-get file 'attributes))
- (vlax-release-object app)(gc)
- (alert (itoa at))
- )
- )(princ)
- )
|