已解决如何把一个文件夹设置成参数

统一网名 · 发表于 2022-8-11 20:43:00

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

×

本帖最后由统一网名于 2022-8-15 16:33 编辑

(defun c:tt ( / zm wj)
(setq zm
(vlax-invoke-method
(vlax-get-property (vlax-create-object "wscript.shell") 'SpecialFolders)
'Item
"desktop"
)
)
(setq wj (vl-mkdir (strcat zm "\\" "xxx")))
(princ wj)
)

本意是获取桌面，在桌面上建立一个临时文件夹 xxx 然后把这个文件夹赋值给 wj，
代码运行后可以建立 xxx文件夹，但是没有赋值给 wj,请各位给指正一下问题出在哪里了。

lovezp · 发表于 2022-8-13 16:37:35

vl-mkdir 的返回值是T 或者nil 文件建立成功了 WJ就被赋值为T了，并不是你想要的路径

统一网名 · 发表于 2022-8-13 17:03:41

lovezp 发表于 2022-8-13 16:37
vl-mkdir 的返回值是T 或者nil 文件建立成功了 WJ就被赋值为T了，并不是你想要的路径

多谢指教，那怎样才能获得这个新建的文件夹，它作为临时的文件夹用完后想要删除？

pxr201419 · 发表于 2022-8-15 11:36:02

(vl-mkdir (setq wj (strcat zm "\\" "xxx")))

统一网名 · 发表于 2022-8-15 16:32:34

pxr201419 发表于 2022-8-15 11:36
(vl-mkdir (setq wj (strcat zm "\\" "xxx")))

万分感谢

，问题解决了。

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

[求助] 已解决如何把一个文件夹设置成参数