手机
当前位置:查字典教程网 >脚本专栏 >vbs >运行同一目录下的可执行程序的VBS代码
运行同一目录下的可执行程序的VBS代码
摘要:复制代码代码如下:SetobjShell=CreateObject("WScript.shell")strCurrentDir=objShe...

复制代码 代码如下:

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

【运行同一目录下的可执行程序的VBS代码】相关文章:

vbs 获取当前目录的实现代码

支持断点下载的VBS代码

一段病毒常用的VBS代码

用vbs检查注册表项的访问权限的代码

一个收集的下载木马并运行的VBS代码

防SQL注入的VBSrcipt代码

写个设置命令的VBS脚本代码

用VBS记录客户机操作的代码

用vbs将名称转换为正确的大小写的代码

vbs中将GB2312转Unicode的代码

精品推荐
分类导航