运行同一目录下的可执行程序的VBS代码
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10VBS教程:对象-Err
- 01-10批量替换快捷方式目的路径的VBS脚本
- 01-10远程开启/关闭目标telnet服务的windows脚本RTCS.vbs
- 01-10用vbs控制iis创建虚拟目录的代码
- 01-10用vbs实现定时运行web文件的方法
- 01-10使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
- 01-10一个收集的下载木马并运行的VBS代码
- 01-10用VBS调用程序并对程序的运行情况进行监控的两个代码
- 01-10用vbs列出注册表中 Run 项中的所有项目