运行同一目录下的可执行程序的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

参考资料:http://www.visualbasicscript.com/m43018.aspx

时间: 2024-11-05 18:30:50

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

Java---注解、类加载器-加强-实现运行任意目录下class中加了@MyTest的空参方法

做自己的类加载器 虚拟机的核心是通过类加载器来加载.class文件,然后进行相应的解析执行.那么我们可以自己做类加载器,手动加载需要的.class以进行解析执行,从而扩展虚拟机的功能. 以下内容摘自API文档: 应用程序需要实现 ClassLoader 的子类,以扩展 Java 虚拟机动态加载类的方式. 网络类加载器子类必须定义方法 findClass 和 loadClassData,以实现从网络加载类.下载组成该类的字节后,它应该使用方法 defineClass 来创建类实例. 代码示例: 自

jsp显示目录下所有文件与子目录代码

jsp教程显示目录下所有文件与子目录代码  public static void getFiles(List<File> fileList, String path, String fileSuffix) {           File file = new File(path);           File[] files = file.listFiles();           if (files == null) {               return;          

PHP统计目录下的文件总数及代码行数(去除注释及空行)

<?php /** * @author xiaoxiao <x_824@sina.com> 2011-1-12 * @link http://xiaoyaoxia.cnblogs.com/ * @license * 统计目录下的文件行数及总文件数··去除注释 */ $obj = new CaculateFiles(); //如果设置为false,这不会显示每个文件的信息,否则显示 $obj->setShowFlag(false); //会跳过所有All开头的文件 $obj->

linux find下如何统计一个目录下的文件个数以及代码总行数的命令_unix linux

今天遇到如题所示问题,网上捣鼓半天,有收获     知道指定后缀名的文件总个数命令:        find . -name "*.html" | wc -l     知道一个目录下代码总行数以及单个文件行数:        find . -name "*.html" | xargs wc -l

php opendir()列出目录下所有文件的实例代码

php opendir()函数用于打开目录,通常与readdir()和closedir()函数一起用来读取目录下所有文件(即遍历目录),本文章向大家介绍php使用opendir()函数列出目录下所有文件的实例. 实例一: 使用opendir()列出目录下所有文件 <?php $dr = @opendir('/tmp/'); if(!$dr) { echo "Error opening the /tmp/ directory!<BR>"; exit; } while((

支持断点下载的VBS代码_vbs

之前我就介绍过VBScript语言的强大.今天再给出一个支持断点下载的VBS代码. 并附上VBS代码的解析,不懂的朋友可以配合微软的SCRIPT56.CHM文档自学.很简单, VBS的好处就是代码易于理解.基本上每行代码执行功能都用英文表示出来了. 这个代码也是对我以前介绍的VBS下载功能的补充. 老规矩,复制保存为dl.vbe. 不过这个VBS的代码的不同之处不是双击运行,而是在CMD命令行下执行. 下载功能执行的格式是: cscript.exe dl.vbs (目标文件地址) [以下载Met

禁止QQ上网的vbs代码_vbs

是个不错的网站在这里我表示个人意见支持支持永远支持 今天我给大家做个"用vbs代码禁止QQ上网"的教程.希望大家喜欢 dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process wh

了解VBE VBE则是编译后(加密)的VBS代码_vbs

一.vbe与vb VBE跟VBS差不多,都是VB脚本代码文件,但他们也有不同: VBS是明文代码,就是说可以直接使用记事本编辑: VBE则是编译后(加密)的VBS代码,使用记事本打开不能直接看到源代码.(有些例外) 加密工具有很多,其中常用的是 Microsoft Script Encoder(screnc.exe),此外还有许多. VBE格式在QQ传文件中往往不会被拦截,而VBS格式却会被拦截,这应该是程序设计者的一个失误. 因此,所以很多人没有进行加密而直接改扩展名为"VBE",依

Java---实现运行任意目录下class中加了@MyTest的空参方法(实现图形界面)

说明: 因为上个代码,总是要输入完整的绝对路径,比较麻烦,于是,就写了这个小程序,直接进入文件对话框选择需要运行的class文件. 只需要提前输入完整的类名. 注意:加的MyTest必须打个包,加上: import cn.hncu.myJuniitApp.vo.MyTest; 不然不是同一个注解呢. 测试的类: package cn.hncu.myJuniitApp; import cn.hncu.myJuniitApp.vo.MyTest; public class MyJunitTest {