标题: vbs 如何运行一个程序 [打印本页]
作者: huzixuan 时间: 2007-3-29 20:35 标题: vbs 如何运行一个程序
我用
dim name
name=inputbox("请输入需要运行的程序","运行")
然后怎么来运行 name 这个东东呢?
作者: jmz573515 时间: 2007-3-29 20:47
dim name
set ws=createobject("wscript.shell")
name=inputbox("请输入需要运行的程序","运行")
ws.run name
作者: wayzbaby 时间: 2007-5-30 09:15
| Quote: | |
|
这里的NAME必须是系统自带的,如何不是,必须要给出完整的路径.例如,你要调用你自己写的一个.VBS文件,那你必须要给出它的位置.
作者: zhoushijay 时间: 2007-5-30 11:19
可以使用相对路径, 比如在同一目录下就不需要路劲
作者: gyfhgyfh 时间: 2007-11-8 23:34 标题: 用对话框来打开就好。
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
发现文本文件可以直接调用记事本打开，其他的如压缩文件以及长文件名的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
文件会提示错误，找不到该文件，谁有办法解决？