中国DOS联盟

我用

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


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

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

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

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

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

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  

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

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