中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 如何运行一个程序

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『楼主』: vbs 如何运行一个程序

我用

dim name
name=inputbox("请输入需要运行的程序","运行")

然后怎么来运行 name 这个东东呢?

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-3-29 20:35

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 2 楼』:

dim name
set ws=createobject("wscript.shell")
name=inputbox("请输入需要运行的程序","运行")
ws.run name

此帖被 +4 点积分

点击查看详情

2007-3-29 20:47

wayzbaby
初级用户

积分 30
发帖 14
注册 2006-1-10
状态离线

『第 3 楼』:

Quote:

Originally posted by jmz573515 at 2007-3-29 20:47:
dim name
set ws=createobject("wscript.shell")
name=inputbox("请输入需要运行的程序","运行")
ws.run name

这里的NAME必须是系统自带的,如何不是,必须要给出完整的路径.例如,你要调用你自己写的一个.VBS文件,那你必须要给出它的位置.

2007-5-30 09:15

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 4 楼』:

可以使用相对路径, 比如在同一目录下就不需要路劲

你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>

2007-5-30 11:19

gyfhgyfh
初级用户

积分 54
发帖 25
注册 2006-9-29
状态离线

『第 5 楼』: 用对话框来打开就好。

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

发现文本文件可以直接调用记事本打开，其他的如压缩文件以及长文件名的

文件会提示错误，找不到该文件，谁有办法解决？

2007-11-8 23:34

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

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

论坛跳转: