vbs脚本运行同目录exe文件

vbs脚本要点：

1. 不区分大小写。
2. Set 与对象有关，网络上抄来的代码不要动他的Set。
3. 以rem或'开头的行是单行注释。

'文件名：1.vbs

'WScript.Shell是WshShell对象的ProgID，创建WshShell对象可以运行程序、操作注册表、创建快捷方式、访问系统文件夹、管理环境变量。
Set objShell = CreateObject("Wscript.Shell")

'获取脚本文件全路径(不要添加Set)
strPath = Wscript.ScriptFullName

'vbs的文件系统
Set objFSO = CreateObject("Scripting.FileSystemObject")
'获取当前脚本的文件对象
Set objFile = objFSO.GetFile(strPath)

'获得当前脚本的所在文件夹，left是一种字符串截取方法(相似的有right和mid)(vbs的字符串没有第0位字符)
vbspath = left(strPath,len(strPath)-len(objFSO.GetFileName(objFile)))

'切换脚本运行工作目录
objShell.CurrentDirectory = vbspath

'经过前面的一系列操作，当前脚本可以直接运行同目录的1.exe
objShell.run "1.exe"

'或者不切换脚本运行工作目录，直接拼接exe的路径(拼接用符号"+"或者"&")
'objShell.run vbspath + "1.exe"

'将 object 赋值为 Nothing 以释放与前面的引用对象相关联的系统或内存资源。
Set objShell = Nothing
Set objFile = Nothing
Set objFSO = Nothing