VBS打開當(dāng)前腳本所在文件夾
更新時(shí)間：2019年12月08日 14:14:37 作者：一株禾
有時(shí)候我們需要獲取當(dāng)前vbs腳本所在的文件夾，或者運(yùn)行當(dāng)前腳本文件夾中的文件那么就需要參考下面的代碼了
方法一：Wscript.ScriptFullName
'創(chuàng)建一個(gè) Wscript.Shell 對(duì)象的實(shí)例,稍后會(huì)使用這個(gè)對(duì)象啟動(dòng) Windows 資源管理器
Set objShell = CreateObject("Wscript.Shell")
'獲取腳本的路徑
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
'獲取腳本當(dāng)前所在文件夾的路徑
strFolder = objFSO.GetParentFolderName(objFile)
strPath = "explorer.exe /e," & strFolder
'啟動(dòng) Windows 資源管理器,打開腳本所在的文件夾
objShell.Run strPath
方法二：objShell.CurrentDirectory
這種方法代碼少了一些
set objShell = CreateObject("Wscript.Shell")
'腳本的當(dāng)前目錄
strPath = objShell.CurrentDirectory
strPath = "explorer.exe /e," & strPath
objShell.Run strPath
下面是腳本之家小編的補(bǔ)充
如果是腳本中需要調(diào)用下面很簡(jiǎn)單的一句話就可以獲取當(dāng)前目錄
currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
或
currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
是不是更簡(jiǎn)單呢，這篇文章就分享到這了，希望大家以后多多支持腳本之家。
相關(guān)文章
寫了這么多VBS，從來都沒有使用過SetLocale函數(shù)，似乎也沒有見過誰的代碼使用過，這個(gè)SetLocale函數(shù)到底有什么用呢2013-05-05
VBS教程：VBScript 語句-Select Case 語句
Select Case 語句可以是嵌套的，每一層嵌套的 Select Case 語句必須有與之匹配的 End Select 語句2006-11-11
非常具有破壞性，所以如果自己有服務(wù)器的，一定要把shell.application組件禁掉2008-06-06
VBS教程：函數(shù)-GetRef 函數(shù)...2006-11-11
用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼
用vbs實(shí)現(xiàn)顯示系統(tǒng)調(diào)色板的代碼...2007-10-10
VBscript教程 第五課 VBScript常數(shù)
VBscript教程 第五課 VBScript常數(shù)...2006-11-11
使用 Iisext.vbs 啟用Web服務(wù)擴(kuò)展的方法
一直以來都是手工啟用Web服務(wù)擴(kuò)展，沒想到微軟發(fā)布的Iisext.vbs也有這個(gè)功能，這里腳本之家小編就為大家介紹下2014-07-07
allfiles.vbs 顯示子目錄下的所有文件的修改時(shí)間、大小、文件名、擴(kuò)展名等
這篇文章主要介紹了allfiles.vbs之顯示子目錄下的所有文件的修改時(shí)間、大小、全限定名定名等信息,需要的朋友可以參考下2020-08-08
VBS教程：方法-GetBaseName 方法...2006-11-11
VBS教程：VBscript語句-Property Get 語句
VBS教程：VBscript語句-Property Get 語句...2006-11-11