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

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

本帖最后由 /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)
)
**** Hidden Message *****

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

{:1_23:}不错

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

果断收集，备用
页: [1] 2 3
查看完整版本: 建立一个文件夹(_MKDIR "E:\\my")