運(yùn)行同一目錄下的可執(zhí)行程序的VBS代碼
更新時(shí)間：2011年01月29日 00:51:52 作者：
運(yùn)行同一目錄下的可執(zhí)行程序的VBS代碼，需要的朋友可以參考下。
復(fù)制代碼 代碼如下:
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
獲取腳本所在目錄還可以:
復(fù)制代碼 代碼如下:
set fso = createobject("scripting.filesystemobject")
fso.GetParentFolderName(WScript.ScriptFullName)
一時(shí)想不到更好的辦法判斷文件是不是.exe了…… 就這樣了。
復(fù)制代碼 代碼如下:
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
相關(guān)文章
用vbs實(shí)現(xiàn)批量掛馬2008-05-05
VBS創(chuàng)建正則表達(dá)式對(duì)象的兩種方法
貌似我看過(guò)的 VBScript 書(shū)籍沒(méi)有一本介紹過(guò)這種寫(xiě)法，當(dāng)然，書(shū)上沒(méi)寫(xiě)的東西還有很多2012-01-01
VBS教程：VBScript 語(yǔ)句-Select Case 語(yǔ)句
Select Case 語(yǔ)句可以是嵌套的，每一層嵌套的 Select Case 語(yǔ)句必須有與之匹配的 End Select 語(yǔ)句2006-11-11
奇特的js寫(xiě)法,或許可以用來(lái)加密躲殺毒軟件什么的
今天晚上來(lái)搞js，發(fā)現(xiàn)一個(gè)奇怪的現(xiàn)象 先來(lái)看一個(gè)例子: 2000,(WScript.echo(0377),1000,20000)2008-12-12
用vbs實(shí)現(xiàn)的批量文件的替換2008-05-05
VBS教程：VBScript 語(yǔ)句-With 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-With 語(yǔ)句...2006-11-11
最常見(jiàn)的是InternetExplorer.Application對(duì)象，網(wǎng)上一搜一大把。2011-02-02
VBS教程：方法-Close 方法...2006-11-11
VBS基礎(chǔ)編程教程 (第4篇)...2007-12-12
VBS教程：運(yùn)算符-Or 運(yùn)算符...2006-11-11