中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS 顺序安装【已解决】

yhshiro
初级用户

积分 130
发帖 59
注册 2007-12-25
状态离线

『楼主』: VBS 顺序安装【已解决】

我要安装一个驱动可以用命令安装的那种。。。
我想等那个驱动安装完成以后再安装一些其他的东西。。
用延时的不要哈。。。

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 ]

2008-3-5 12:07

fastslz
铂金会员

DOS一根葱

积分 5493
发帖 2315
注册 2006-5-1
来自上海
状态离线

『第 2 楼』:

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

此帖被 +2 点积分点击查看详情

第一高手 第二高手
我的小站

2008-3-5 13:27

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: