中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-06-14 01:07
楼 主 VBS 顺序安装【已解决】 发表于 2008-03-05 12:07 ·  中国 云南 昆明 电信
初级用户
★★
积分 130
发帖 59
注册 2007-12-25 20:32
UID 106775
性别 男
状态 离线
我要安装一个驱动 可以用命令安装的那种。。。
我想等那个驱动安装完成以后再安装一些其他的东西。。
用延时的不要哈。。。

IF (fso.FileExists("PhysX.exe")) Then
shell.run "PhysX.exe /passive"
Else
msg=msgbox("程序可能无法启动~",1,"出问题啦!!")
end if
………………………………
………………………
………………
等上面这个完全安装完后再运行下一个,或者下一句

在问个VBS里面跳转的问题。。。

就想上面那段一样,如果文件夹里面没有那文件,那下面的代码就不再执行。。直接跳到结束或最后一句。

[ Last edited by yhshiro on 2008-3-7 at 08:16 PM ]
2 发表于 2008-03-05 13:27 ·  中国 上海 松江区 电信
铂金会员
★★★★
DOS一根葱
积分 5,493
发帖 2,315
注册 2006-05-01 10:41
UID 54766
性别 男
来自 上海
状态 离线
shell.run "PhysX.exe /passive", 1, True '等待PhysX.exe安装完后再运行下一个
Runerr = shell.run "PhysX.exe /passive", 1, True '从PhysX.exe返回的错误代码

Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
If (fso.FileExists("PhysX.exe")) Then
WshShell.run "PhysX.exe /passive", 1, True
Else
'下一步做的事情,也可以call语句
WScript.Quit
End If
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
yhshiro +2 2008-03-07 20:16
第一高手 第二高手

论坛跳转: