建立一个文件夹(_MKDIR "E:\\my")

/db_自贡黄明儒_ · 发表于 2018-2-25 22:12:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2018-2-25 22:45 编辑

;;建立一个文件夹(_MKDIR "E:\\my")
(DEFUN _MKDIR (FOLDER / FOLDERX FIL FFF POS DIR DRV)
(setq FIL (vlax-get-or-create-object "Scripting.FileSystemObject"))
(setq FOLDERX FOLDER)
(while (and (setq POS (VL-STRING-SEARCH "\\" FOLDER)))
(setq FFF (CONS (SUBSTR FOLDER 1 POS) FFF))
(setq FOLDER (SUBSTR FOLDER (+ POS 2)))
)
(setq FFF (REVERSE (CONS FOLDER FFF)))
(setq DRV (CAR FFF))
(setq FFF (CDR FFF))
(FOREACH DIR FFF
(if (NULL (VL-FILE-DIRECTORY-P (setq DRV (STRCAT DRV "\\" DIR)))
)
(PROGN (vlax-invoke-method FIL 'CREATEFOLDER DRV))
)
)
(vlax-release-object FIL)
)

游客，如果您要查看本帖隐藏内容请回复

kqqt6236 · 发表于 2018-2-26 00:01:17

谢谢分享。

marting · 发表于 2018-2-26 00:25:57

(vl-mkdir directoryname)
参数

directoryname

准备创建的目录名称。

返回值

如果成功则返回 T ，如果目录已经存在或不成功则返回 nil。

示例

创建名称为 mydirectory 的目录：

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

q3_2006 · 发表于 2018-2-26 16:12:16

vl-mkdir

laiz3000 · 发表于 2018-2-28 14:02:14

不错

dabingrain · 发表于 2018-3-1 13:58:17

这也需要回复才能看？

HLCAD · 发表于 2018-3-1 18:51:29

我通常采用DOSLIB

liunian0524 · 发表于 2018-3-2 08:16:14

感谢黄大师分享

yjch · 发表于 2018-3-2 10:44:50

好好学习天天向上，谢谢

qyming1996 · 发表于 2018-3-2 11:23:24

谢谢分享。

taoyi0727 · 发表于 2018-3-3 12:30:28

黄师的代码要来看看

kqqt6236 · 发表于 2018-3-4 00:02:34

vlisp函数也可以？

sicky111 · 发表于 2018-3-4 00:04:24

学习一下。

yangchao2005090 · 发表于 2018-7-26 20:57:23

这也需要回复才能看？

wzg356 · 发表于 2018-12-28 16:29:14

果断收集，备用

账号		自动登录	找回密码
密码			立即注册

[每日一码] 建立一个文件夹(_MKDIR "E:\\my")

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分