首页 / 编程脚本 / 运行同一目录下的可执行程序的VBS代码

复制代码 代码如下:
Set objShell = CreateObject（"WScript.shell"）
strCurrentDir = objShell.CurrentDirectory
set fso = createobject（"scripting.filesystemobject"）
set f=fso.getfolder（strCurrentDir）
For Each i In f.files
If LCase（right（i,4）） = ".exe" Then objShell.Run i,,true
Next


获取脚本所在目录还可以:
复制代码 代码如下:
set fso = createobject（"scripting.filesystemobject"）
fso.GetParentFolderName（WScript.ScriptFullName）

一时想不到更好的办法判断文件是不是.exe了…… 就这样了。
复制代码 代码如下:
Option Explicit

Dim oFS : Set oFS = CreateObject（ "Scripting.FileSystemObject" ）
Dim oWS : Set oWS = CreateObject（ "WScript.Shell" ）

WScript.Echo "Script:"
WScript.Echo "ScriptFullName:", WScript.ScriptFullName
WScript.Echo "ScriptFullPath:", oFS.GetParentFolderName（ WScript.ScriptFullName ）
WScript.Echo "Current:"
WScript.Echo "FS:", oFS.GetAbsolutePathName（ "." ）
WScript.Echo "WS:", oWS.CurrentDirectory

-------- output -------------

C:wis\_vbs506devforum
cscript curdir.vbs
Script:
ScriptFullName: C:wis\_vbs506devforumcurdir.vbs
ScriptFullPath: C:wis\_vbs506devforum
Current:
FS: C:wis\_vbs506devforum
WS: C:wis\_vbs506devforum

C:wis\_vbs506devforum
cd ..

C:wis\_vbs506dev
cscript forumcurdir.vbs
Script:
ScriptFullName: C:wis\_vbs506devforumcurdir.vbs
ScriptFullPath: C:wis\_vbs506devforum
Current:
FS: C:wis\_vbs506dev
WS: C:wis\_vbs506dev

参考资料：http://www.visualbasicscript.com/m43018.aspx