求助, 能否用Lisp来移动文件夹的位置

xmsyd · 发表于 2005-9-23 11:55:00

用Lisp来移动文件位置, 可以实现。如果用Lisp来移动某一文件夹"mylsip"在硬盘中的位置，比如： ../document/mylsip 移动到.../projects/mylisp，可以实现吗? 有人是否成功过? 想请教，谢谢!

zhangkui9070 · 发表于 2020-8-9 21:54:59

如何用lsp移动文件去另外一个文件夹内呢？

paulpipi · 发表于 2020-8-9 22:14:05

学习了，谢谢

sailorcwx · 发表于 2005-9-23 20:59:00

把D盘下的1文件夹移进2文件夹内

(defun c:cs ()
(setq YH_movename (strcat "move" " " "D:\\1" " " "D:\\2"))
(command "shell" YH_movename)
)

xmsyd · 发表于 2005-9-24 06:05:00

本帖最后由作者于 2005-9-24 17:21:19 编辑

多谢了!

熊哥哥 · 发表于 2005-9-24 07:40:00

看看

xmsyd · 发表于 2005-9-24 17:20:00

此LISP程序很好，再次感谢！不过，我又发现了新问题。如果此文件夹的原来路径包含空格，比如: “C:\\Program

Files\\mylisp” 或者 "C:\\my

download\\mylisp"。采用上述的LISP程序，此文件夹还是无法被移动到别的位置。抱歉，不知有否办法解决这个问题，再次谢谢！

雪山飞狐_lzh · 发表于 2005-9-24 22:02:00

用fso获取该文件夹的短名称

xmsyd · 发表于 2005-9-25 08:15:00

谢谢! 我还是不清楚fso是LISP的指令, 还是其它的指令. 如何获取文件夹的短名称, 可否进一步解释一下, 给个简单例子就行。多谢了!

alin · 发表于 2005-9-25 09:07:00

(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-invoke fso 'MoveFolder "c:\\Program Files\\3721" "c:\\temp\\")

xmsyd · 发表于 2005-9-25 18:33:00

成功了! 非常感谢!!!

xmsyd · 发表于 2005-9-29 11:47:00

再次请教8楼版主, 我想获取某一文件的短名称, 不知可否实现？比如:
“C:\\Program Files\\mylisp\\mybook.txt”，我试图通过修改上述例子来获得，但都没有成功。如果可以实现，能否给个简单例子。再次感谢了!

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