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

赞 (0)

相关推荐

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

  • .net core 读取本地指定目录下的文件的实例代码

    .net core 读取本地指定目录下的文件的实例代码

    项目需求 asp.net core 读取log目录下的.log文件,.log文件的内容如下: xxx.log ------------------------------------------begin--------------------------------- 写入时间:2018-09-11 17:01:48  userid=1000  golds=10  -------------------------------------------end-------------------

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

    今天遇到如题所示问题,网上捣鼓半天,有收获 知道指定后缀名的文件总个数命令:        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((

  • php列出一个目录下的所有文件的代码

    复制代码 代码如下: <?php function dir_path($path) { $path = str_replace('\\', '/', $path); if (substr($path, -1) != '/') $path = $path . '/'; return $path; } /** * 列出目录下的所有文件 * * @param str $path 目录 * @param str $exts 后缀 * @param array $list 路径数组 * @return a

  • 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->

  • C++获取指定目录下的所有文件

    C++获取指定目录下的所有文件

    本文实例为大家分享了C++获取指定目录下所有文件的具体代码,供大家参考,具体内容如下 1.获得指定目录下的所有文件(不搜索子文件夹) 需要包含的头文件 #include <io.h> #include <string> #include <vector> #include <fstream> 函数实现 void getAllFiles(string path, vector<string>& files) { // 文件句柄 long h

  • PHP删除目录及目录下所有文件的方法详解

    函数代码一:删除目录及目录下的所有文件 复制代码 代码如下: //循环删除目录和文件函数function delDirAndFile( $dirName ){if ( $handle = opendir( "$dirName" ) ) {while ( false !== ( $item = readdir( $handle ) ) ) {if ( $item != "." && $item != ".." ) {if ( is_

  • bat 批量提取指定目录下的文件名

    下面是批量获取指定目录下的文件名的核心代码 @echo off echo text input set input= set /p input=: echo %input% is input cd %input% rem @echo on for %%a in (*) do ( echo %%a is input ) cd .. 如下是sql server执行对应脚本文件 sqlcmd -Spcserver -dmaster -Usa -PcrexPT84B -i 脚本文件 由上面两个命令就可以

  • vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

    GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set oFSO = CreateObject("Scripting.FileSystemObject") set txt = oFSO.CreateTextFile(G&"TXT.

随机推荐