如何用vlisp程序读出本地有几个驱动器

yuangw1234 · 发表于 2010-11-5 15:15:00

如何用vlisp程序读出本地有几个驱动器，不要dos_lisp的函数，因为dos_lisp在2010里不支持

liminnet · 发表于 2010-11-5 15:35:00

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

highflybird · 发表于 2010-11-5 16:10:00

还是不要遮遮掩掩好。
不知道楼主所说的驱动器是不是指的磁盘？

(defun c:test (/ fso drives i)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(setq drives (vlax-get fso 'drives))
(setq i 0)
(vlax-for drive drives
(vlax-dump-object drive T)
(setq i (1+ i))
)
(princ "\n共有磁盘个数:")
(princ i)
(vlax-release-object fso)
(princ)
)

liminnet · 发表于 2010-11-5 16:53:00

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

wyw970317515 · 发表于 2010-11-5 17:02:00

(defun GetDevs ( / i Device devs )
(setq i 67)
(while (<= i 90)
(if (vl-directory-files (setq Device (strcat (chr i) ":\\")))
(setq Devs (append Devs (list Device))))
(setq i (1+ i))
)
devs
)

highflybird · 发表于 2010-11-5 17:28:00

楼上的方法也巧，不过在某些情况下出错哦，譬如某个磁盘下什么文件都没有的话，一样返回nil值

yuangw1234 · 发表于 2010-11-8 13:28:00

多谢各位大师

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

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

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

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

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

[讨论] 如何用vlisp程序读出本地有几个驱动器