| 标题 | 运行同一目录下的可执行程序的VBS代码 |
| 范文 | 运行同一目录下的可执行程序的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\_vbs\0506\dev\forum cscript curdir.vbs Script: ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs ScriptFullPath: C:\wis\_vbs\0506\dev\forum Current: FS: C:\wis\_vbs\0506\dev\forum WS: C:\wis\_vbs\0506\dev\forum C:\wis\_vbs\0506\dev\forum cd .. C:\wis\_vbs\0506\dev cscript forum\curdir.vbs Script: ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs ScriptFullPath: C:\wis\_vbs\0506\dev\forum Current: FS: C:\wis\_vbs\0506\dev WS: C:\wis\_vbs\0506\dev |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。