我用
dim name
name=inputbox("请输入需要运行的程序","运行")
然后怎么来运行 name 这个东东呢?
dim name
name=inputbox("请输入需要运行的程序","运行")
然后怎么来运行 name 这个东东呢?
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷....
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷....
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
| 评分人 | 分数 | 时间 |
|---|---|---|
| huzixuan | +4 | 2007-03-29 21:00 |
Originally posted by jmz573515 at 2007-3-29 20:47:
dim name
set ws=createobject("wscript.shell")
name=inputbox("请输入需要运行的程序","运行")
ws.run name
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