运行同一目录下的可执行程序的VBS代码

2020-06-26 18:26:15

字体：大中小

来源：转载

供稿：网友

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