中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-06 12:14

共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » vbs 如何运行一个程序

可打印版本　1,170 / 4

第1楼　huzixuan	发表于 2007-03-29 20:35
高级用户　发帖 219　积分 537　来自芜湖
vbs 如何运行一个程序我用 dim name name=inputbox("请输入需要运行的程序","运行") 然后怎么来运行 name 这个东东呢?

第2楼　jmz573515	发表于 2007-03-29 20:47
银牌会员　发帖 464　积分 1,212
dim name set ws=createobject("wscript.shell") name=inputbox("请输入需要运行的程序","运行") ws.run name

第3楼　wayzbaby	发表于 2007-05-30 09:15
初级用户　发帖 14　积分 30
Originally posted by jmz573515 at 2007-3-29 20:47: dim name set ws=createobject("wscript.shell") name=inputbox("请输入需要运行的程序","运行") ws.run name 这里的NAME必须是系统自带的,如何不是,必须要给出完整的路径.例如,你要调用你自己写的一个.VBS文件,那你必须要给出它的位置.

第4楼　zhoushijay	发表于 2007-05-30 11:19
高级用户　发帖 375　积分 845
可以使用相对路径, 比如在同一目录下就不需要路劲

第5楼　gyfhgyfh	发表于 2007-11-08 23:34
初级用户　发帖 25　积分 54
用对话框来打开就好。 Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files\|." objDialog.Flags = &H020 objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else 'Wscript.Echo objDialog.FileName Set WshShell = CreateObject("WScript.Shell") WshShell.Run objDialog.FileName ,,true End If 发现文本文件可以直接调用记事本打开，其他的如压缩文件以及长文件名的文件会提示错误，找不到该文件，谁有办法解决？

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023