用VLISP及相关函数怎么判断指定目录是否为受系统保护？
现在随着WIN8 WIN8系统的普及，发现小程序出现越来越多的BUG，主要是当时没考虑到指定文件夹是否受系统保护。如果一个文件夹受系统保护，用户就无法更改相应文件等操作，以下是一个自定义函数，可以简单判断指定文件夹是否受保护，但对"C:\\" “D:\\"这种系统根目录无效，请高手指点迷津。(defun ZA:CKPath (path / f tf)
(setq tf (vl-filename-mktemp "" path))
(setq f (open tf "w"))
(cond
(f (close f) (vl-file-delete tf))
(T Nil)
)
)
;;;当返回T时未受保护，返回NIL时文件夹受系统保护。
(ZA:CKPath "c:\\456")
页:
[1]