打开工作目录的GRIP程序

waykinghu · 发表于 2010-5-26 11:04:47

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

目的:打开你当前使用部件的所在目录！
STRING/dir(132),dir2(132)
dir=&pspec
m=lenf(dir)
n=1
DO/LA1:,num,1,m,1
n1=fndstr(dir,'\',n)
ifthen/n1==0
jump/la2:
else
n2=n1
n=n1+1
endif
LA1:
la2:
dir2=substr(dir,1,n2)
l1:
xspawn/concur,prog,'C:\windows\explorer.exe '+dir2
jump/l25:

l25:
halt

waykinghu · 发表于 2010-5-26 11:07:53

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

hello_icax · 发表于 2010-5-26 11:14:54

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

ugman · 发表于 2010-5-26 21:00:01

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

CUI821228 · 发表于 2010-6-8 21:48:12

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

120612060a · 发表于 2010-8-30 22:23:17

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

hello_icax · 发表于 2010-9-2 11:01:22

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

shinhwakiki · 发表于 2010-10-9 18:55:19

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

705037184 · 发表于 2010-10-13 22:41:28

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

zhangshuai0322 · 发表于 2010-10-15 22:05:44

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

		自动登录	找回密码
密码			立即注册