|
|
马上注册，结交更多同行朋友，交流，分享，学习。
您需要 登录 才可以下载或查看，没有帐号？注册
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 |
|
发表于 2010-5-26 11:04:47
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！
楼主