足球游戏_中国足彩网¥体育资讯$

运行同一目录下的可执行程序的VBS代码
来源:易贤网 阅读:1686 次 日期:2016-07-07 14:48:59
温馨提示:易贤网小编为您整理了“运行同一目录下的可执行程序的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

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标