用VLISP及相关函数怎么判断指定目录是否为受系统保护？

zark

现在随着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")