关于VBS调用外部程序和获取自身路径的问题。

A脚本

set ws=CreateObject("WScript.Shell")

msgbox ws.CurrentDirectory '当前工作文件夹

ws.Run """C:\Program Files\Internet Explorer\123.vbs"""

B脚本

WScript.echo Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

wscript.sleep(5000)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

WScript.echo WScript.ScriptFullName '返回当前运行脚本的完整路径名。

WScript.echo WScript.ScriptName'返回当前运行脚本的文件名。

WScript.echo WScript.Path '返回主可执行文件路径名称。

WScript.echo WScript.FullName '返回主可执行文件名称

ws.run"C:\Program Files\AliWangWang\AliIM.exe"

楼上老大正解。就是路径里有空格导致的。

如果楼主非要用这一句的话，要在两边再加一对双引号，即

ws.run ""C:\Program Files\AliWangWang\AliIM.exe"".

两对不行，你就再加一对，3对绝对没问题。

另外你这几行代码完全不用创建两个对象，只set ws=createobject("wscript.shell")

就能完成你想要的功能。

另外对象创建完最后要回收哦！

set ws=nothing

打开IE直接用。

Dim objws

Set objws=WScript.CreateObject("wscript.shell")

objws.Run "iexplore"

要打开其它程序把iexplore换为其它程序的路径。

---