vbs写段代码

请看代码:

On Error Resume Next
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
file=".\data\123\m.exe"
If fso.FileExists(file) Then
Wscript.CreateObject("Wscript.Shell").Run Chr(34) & file & Chr(34),1
Else
MsgBox "未找到 " & file & " 请重新安装 " & file,0+16,"注意"
End If

代码说明：

1.变量file仅支持带“.\”的简略路径及完整路径，支持其它的得另改。

2.路径中可以有空格，能正常运行。

3.此代码比楼下的sd7056333的代码要短,方便使用.

关于sd7056333的说明,楼下的sd7056333的代码有一个缺点:

请看图片:

如图,这是楼下sd7056333的代码.如果输入的是像这样的路径,那么它找不到文件的提示就是

额...看起来挺先进,应该没有什么问题.再看下一张图,如果m.exe在vbs脚本的所在文件夹,那么就应该写成这样吧:

运行一下...哈!然后你看看sd7056333的破烂回答的效果吧:

这是神马?你就提示一个点谁知道那是啥?哈哈哈,看到了没,还是我的回答好吧?哈哈哈哈哈~

呵呵,算我邪恶了吧...你说什么?你要我放开那个 .\ ,冲我来??好吧:

我把那个.\去掉了,直接写m.exe运行一下看看效果:

哈哈哈哈哈,看到没?sd7056333的回答好"漂亮"噢~哈哈哈哈哈哈哈哈哈!!!!!!

既然提问者好赖不分，回答者胡搅蛮缠，那这个回答也没必要留着了。
从此不再解答VBS问题。

vbs不能带空格运行程序，用批处理吧。。。很简单。