[求助]：lisp能不能建立文件夹？

Quelea

你给的网站不错。我看了。没想到他用的方法与我的一模一样。真是巧啊。

我建议大家也研究一下windows系统中的ActiveX接口资源。很强大的。尤其在Win2k/xp中，几乎无所不能。建个目录，是杀鸡用牛刀了。

长清

最初由 Quelea 发布
[B]用楼上的方法最简单，但也许会有一个讨厌的黑框框一闪而过。

介绍一个使用activeX的方法

用vlisp很容易实现。这里帮你写一个createfolder函数。
[code]
(defun CreateFolder (s / fso )
... [/B]

如果你把acad.pgp里的如下行变一下：

原来的行
SH,        ,               1,*OS Command: ,

修改成如下行
SH,        ,               4,*OS Command: ,

就不会出现黒框了。当然，如果还嫌麻烦，直接在ACAD.PGP加如下行更好。
SH－1,        ,               4,  *OS Command: ,
当然了，命令就用sh-1了，我在论坛里帖过如何取得C盘序列号的帖子，原理一样。

其实，本办法主要适用于在R14下用AUTOLISP或用VLISP编程，尽管在R2000下可运行，但用ActiveX来要地道得多。

hbumen

论坛卧虎藏龙啊，百度了半天终于找到这里