;创建文件或文件夹

;;1、能否用lisp创建档夹。

;;2、lisp创建的档属性能否以隐藏形式建立。

 ;;By LUCAS(龙龙仔)

 ;;隐藏形式创建档夹

;;USAGE: (MAKEFOLDER "C:\\TMP")

(defun MAKEFOLDER (FNAME / SYS FOLDER) (if (not (findfile FNAME)) (progn (setq SYS (vlax-create-object "Scripting.FileSystemObject")) (setq FOLDER (vlax-invoke-method SYS 'CREATEFOLDER FNAME)) (vlax-put FOLDER "Attributes" 2 ) (vlax-release-object FOLDER) (vlax-release-object SYS) ) (alert (strcat """ FNAME "" 档案夹已存在!!")) ) (princ) )