只需一步,快速开始
使用道具 举报
这是我的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
一次只能建一个文件夹,如多级文件夹,定义多次
总觉得像游戏里面的隐藏人物...
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-5-3 01:40 , Processed in 0.202608 second(s), 18 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.