[求助]：创建新文件夹

xkcjf_1219

各位老师，如何用LISP在某文件内创建一新文件夹。谢谢。

问题青年B

什么意思?点右键不行?

舟自横

;32..創建建立新資料夾以及屬性;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun MAKEFOLDER (FNAME att / 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"
  att
      )
      (vlax-release-object FOLDER)
      (vlax-release-object SYS)
    )
    (alert (strcat "\"" FNAME "\" 檔案已經存在!!"))
  )
  (princ)
)
;;;Use File System Object, get the folder object, then set/get the attributes property
;;;
;;;Normal   0  Normal file. No attributes are set.
;;;ReadOnly  1  Read-only file. Attribute is read/write.
;;;Hidden   2  Hidden file. Attribute is read/write.
;;;System   4  System file. Attribute is read/write.
;;;Volume   8  Disk drive volume label. Attribute is read-only.
;;;Directory  16  Folder or directory. Attribute is read-only.
;;;Archive  32  File has changed since last backup. Attribute is read/write.
;;;Alias   1024  Link or shortcut. Attribute is read-only.
;;;Compressed  2048  Compressed file. Attribute is read-only.

橄榄滋味

文件夹存在时会出错。好像findfile不能查找文件夹，只能查找文件的

舟自横

不會的，findfile可以查找文件夾

cy956

用doslib
dos_mkdir        dos_mkdir (dos_mkdir path)  建一个新目录nil 失败
Example
(dos_mkdir "test")                "C:\\ ACAD\\ TEST\\"
(dos_mkdir "\\ drawings")        "C:\\ DRAWINGS\\"

hhc_1

(vl-mkdir "d:/新文件夹")

xkcjf_1219

对不起各位，前几天出差了，今天刚回来，谢谢各位赐教，我会逐个试试的，谢谢！