liminnet
发表于 2008-12-3 13:07:00
nonsmall
发表于 2008-12-3 13:31:00
<p>(defun last_disk( / fso num)<br/> (setq fso (vlax-create-object "Scripting.FileSystemObject"))<br/> (setq num 91)<br/> (while (= (vlax-invoke fso 'FolderExists (strcat (chr (setq num (1- num))) ":")) 0))<br/> (strcat (chr num) ":\\")<br/>)</p><p>测试<br/>(last_disk)</p><p>"S:\\"</p>
liminnet
发表于 2008-12-3 14:48:00
清河静
发表于 2008-12-19 19:44:00
新手真的要向前辈们多学习啊,压根就不懂
我冲
发表于 2008-12-19 20:39:00
<p>看看上面的程序对不，参考下子</p>
页:
[1]