VBS提示找不到指定的文件

Question

我运行VBS时，指示系统找不到指定的文件，请问是怎么回事？下面的程序段有错误吗？Dim WshShell, QQPath, QQselect
QQPath="E:\Program files\Tencent\QQ\QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath我的QQ.exe确实就在E:\Program files\Tencent\QQ目录下。

Answer 1

可能是短路径的问题
你把他修改为短路径看看
也就是Program files改为progra~1这样的实下

Answer 2

Set WshShell=WScript.CreateObject("WScript.Shell")
改成
Set WshShell=CreateObject("WScript.Shell")

Answer 3

aspower_(敬个礼 握个手 大家都素好朋友！)
正解

Answer 4

改成这样：
Dim WshShell, QQPath, QQselect
QQPath = "e:\Program files\Tencent\QQ\QQ.exe"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run Chr$(34) & QQPath & Chr$(34)

Answer 5

这也不行啊，编译出错。Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad " & WScript.ScriptFullName我运行上面的代码就没问题。是不是系统执行 WshShell.Run 语句时是到PATH 变量中路径找文件？

Answer 6

是长文件夹名的问题,大于8位的,都要写成~1的形式
Dim WshShell, QQPath, QQselect
QQPath = "D:\Progra~1\UltraE~1\UEDIT32.EXE"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run QQPath

Answer 7

只改这行就行：
WshShell.Run Chr$(34) & QQPath & Chr$(34)

Answer 8

楼上的也可以
WshShell.Run Chr(34) & "D:\Progra~1\UltraE~1\UEDIT32.EXE" & Chr(34)

Answer 9

我把需要运行的目标程序改为其它程序都可以，可能是我的系统限制用VBS脚本运行QQ。不知道怎么才能突破系统的限制？