2.7.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 15 行

string/str(99)               $$字符串定义。

Dopen                    $$打开当前目录。
str=&dirpth                $$将当前目录赋予字符串str。
print/str                   $$打印当前目录。
Dclose                    $$关闭目录
crdir/'e:\grip'               $$新建一个目录，即新建一个文件夹。
dopen/'e:\grip'              $$打开新建的目录即文件夹。
str=&dirpth                $$将新建的目录赋予字符串str。
print/str                   $$打印新建目录。
dclose                    $$关闭新建的目录。

trm:
halt                      $$程序关闭。