在lisp中如何新建一个目录

秋枫

You need to create the folders separatly and then you can call it the way
you want it.
(vl-mkdir "C:\\DECK") ;; will return T or nil
(vl-mkdir "C:\\DECK\\name") ; use name or (strcat ...\\a...)
(vl-mkdir "C:\\DECK\\name\\ph 1")

陈伯雄

前生

ycf052081

1111111111111111111111111

飞诗(fsxm)

这是我的bokee上的一个函数:

http://fsxm.bokee.com/viewdiary.15822232.html

;;;建立一个目录/嵌套目录
(defun fsxm-mkdir (dir / dir2)
  (cond ((vl-directory-files dir))
 ((= (setq dir2 (vl-filename-directory dir)) dir) nil)
 (t (fsxm-mkdir dir2) (vl-mkdir dir))
  )
)

英雄无敌

2004的帮助里还是有这个函数的

Creates a directory

(vl-mkdir directoryname)

Arguments

directoryname

The name of the directory you want to create.

Return Values

T if successful, nil if the directory exists or if unsuccessful.

Examples

Create a directory named mydirectory:

_$ (vl-mkdir "c:\\mydirectory")

T

黄河

一次只能建一个文件夹，如多级文件夹，定义多次

carrot1983

总觉得像游戏里面的隐藏人物...

my_autocad

恩，多有用的函数，就是没有写到帮助里，看来，函数帮助应该再整理了，呵呵