运行同一目录下的可执行程序的VBS代码
更新时间：2011年01月29日 00:51:52 作者：
运行同一目录下的可执行程序的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
参考资料：http://www.visualbasicscript.com/m43018.aspx
相关文章
用vbs实现批量挂马2008-05-05
貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多2012-01-01
VBS教程：VBScript 语句-Select Case 语句
Select Case 语句可以是嵌套的，每一层嵌套的 Select Case 语句必须有与之匹配的 End Select 语句2006-11-11
今天晚上来搞js，发现一个奇怪的现象 先来看一个例子: 2000,(WScript.echo(0377),1000,20000)2008-12-12
用vbs实现的批量文件的替换2008-05-05
VBS教程：VBScript 语句-With 语句...2006-11-11
最常见的是InternetExplorer.Application对象，网上一搜一大把。2011-02-02
VBS教程：方法-Close 方法...2006-11-11
VBS基础编程教程 (第4篇)...2007-12-12
VBS教程：运算符-Or 运算符...2006-11-11
最新评论