怎么样获取最后一个盘符号或U盘的盘符号

liminnet · 发表于 2008-12-3 13:07:00

提示: 作者被禁止或删除内容自动屏蔽

"觉得好，就打赏"

还没有人打赏，支持一下

nonsmall · 发表于 2008-12-3 13:31:00

(defun last_disk( / fso num)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(setq num 91)
(while (= (vlax-invoke fso 'FolderExists (strcat (chr (setq num (1- num))) ":")) 0))
(strcat (chr num) ":\\")
)

测试
(last_disk)

"S:\\"

liminnet · 发表于 2008-12-3 14:48:00

提示: 作者被禁止或删除内容自动屏蔽

清河静 · 发表于 2008-12-19 19:44:00

新手真的要向前辈们多学习啊,压根就不懂

我冲 · 发表于 2008-12-19 20:39:00

看看上面的程序对不，参考下子

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-12-3 13:07:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽 "觉得好，就打赏" 打赏还没有人打赏，支持一下

	回复使用道具举报置顶卡变色卡显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-12-3 14:48:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡