运行同一目录下的可执行程序的VBS代码

181 阅读 0 评论 120 点赞

我是靠谱客的博主友好八宝粥，最近开发中收集的这篇文章主要介绍运行同一目录下的可执行程序的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 