怎么样获取最后一个盘符号或u盘的盘符号
www.dimcax.com
怎么样获取最后一个盘符号或u盘的盘符号怎么样获取最后一个盘符号或u盘的盘符号,知道的告诉一下
d
(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:\\"
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
3q！！！！！！！！！！！！！！！！！3q！！！！！！！！！！！！！！！！！！！！！3q
nonsmall哥运用vlax-create-object太用才啦，谢谢哟！！！！！！！！！！！！！！！
d
新手真的要向前辈们多学习啊,压根就不懂
d
看看上面的程序对不，参考下子
d