用vbs實現在啟動 Windows 資源管理器時打開特定文件夾

2020-06-26 18:06:52

字體：大中小

來源：轉載

供稿：網友

my-script.vbs "c:/scripts"
在文件夾路徑的兩端必須加雙引號嗎？本例中不需要。但是，如果路徑中有空格，則必須加雙引號。以下命令行將不起作用：
my-script.vbs c:/documents and settings/kmyer
只要是向腳本傳遞包含空格的參數，就必須將整個參數括在雙引號內（否則無需如此）。換句話說：
my-script.vbs "c:/documents and settings/kmyer"
這就是命令解釋程序的工作方式。
那么，我們將在這里運行什么腳本呢？問得好。最終是這樣一個腳本：

復制代碼代碼如下:

	
	Set objShell = CreateObject("Wscript.Shell")  
	strPath = Wscript.Arguments(0)  
	strPath = "explorer.exe /e," & strPath  
	objShell.Run strPath 

如同往常一樣，該腳本沒有太多內容。我們首先創建 Wscript.Shell 對象的實例；它是 Windows Script Host 對象，我們用它來在另一腳本內運行腳本或可執行文件。然后我們獲取提供給腳本的第一個參數 (c:/scripts) 并將其存儲到名為 strPath 的變量中：
strPath = Wscript.Arguments(0)
對這些應該沒有什么疑問吧？稍后，我們將使用 Run 方法啟動 Windows 資源管理器。不過，在此之前，我們應注意到 WSH 中的 Run 方法同 Run 對話框基本上是一回事。如果想使用 Run 對話框啟動 Windows 資源管理器（焦點定位在 C:/Scripts 文件夾上），需要鍵入以下代碼：
explorer.exe /e,c:/scripts
我們發現，以上使用的語法與我們用 Run 方法啟動 Windows 資源管理器所用的語法相同：我們只需要構建命令，然后執行：
strPath = "explorer.exe /e," & strPath
objShell.Run strPath
在第 1 行，我們采取命令 explorer.exe /e, 并附加上文件夾路徑（該路徑存儲在變量 strPath 中）；然后，strPath 的值將是 explorer.exe /e,c:/scripts。在第 2 行，我們調用 Run 方法，并將變量 strPath 作為所要運行的命令傳遞。如果一切順利（就腳本編寫方面，事情總是很順利，對吧？），Windows 資源管理器將會打開且焦點定位在 C:/Scripts 上：

真酷。
那么，這有何不妥嗎？沒什么，一切正常。該腳本的唯一弊端是需要您鍵入文件夾的完整路徑；當您試圖打開文件夾 C:/Documents and Settings/Default User/Application Data/Microsoft/SystemCertificates/My/Certificates 時，這就會成為一個問題。但是由于系統管理員總是堅持使用命令行，我們又必須做何種選擇呢？
好吧，您總是可以嘗試一下 GUI 方法（不用擔心，我們不會告訴任何人的）：

復制代碼代碼如下:

	
	Const WINDOW_HANDLE = 0  
	Const NO_OPTIONS = 0  
	Set objShell = CreateObject("Shell.Application")  
	Set objFolder = objShell.BrowseForFolder _  
	    (WINDOW_HANDLE, "Select a folder:", NO_OPTIONS)         
	Set objFolderItem = objFolder.Self  
	strPath = objFolderItem.Path  
	objShell.Explore strPath 

本腳本根本不需要您做任何鍵入。您只需啟動該腳本，然后它會顯示瀏覽文件夾對話框：

選擇文件夾，單擊確定，這樣就可以了。
那么，此腳本是如何工作的？好吧，我們先定義一對常量：WINDOW_HANDLE 和 NO_OPTIONS。WINDOW_HANDLE 是 BrowseForFolder 方法所需的常量，NO_OPTIONS 則只是通知腳本我們要顯示標準的“瀏覽文件夾”對話框。之后，我們創建 Shell.Application 對象的實例，然后使用下面這行代碼來顯示該對話框：
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Select a folder:", NO_OPTIONS)
在對話框顯示之后，它將一直等到我們選擇一個文件夾并單擊確定。然后我們使用如下兩行代碼來實現：1) 創建對選定文件夾的對象引用；以及，2) 將文件夾路徑存儲到變量 strPath 中：
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
我們現在只需調用專用于打開 Windows 資源管理器的 Explore 方法。通過將變量 strPath 作為單獨的參數傳遞，這樣會使得 Windows 資源瀏覽器在打開時焦點定位在 C:/Scripts 上：
objShell.Explore strPath
這說明了什么呢？這說明現在您可以使用命令提示符打開 Windows 資源管理器，也可以使用 GUI 打開 Windows 資源管理器，這完全取決于您。

上一篇：用VBS實現腳本結束進程與防止進程啟動

下一篇：用vbs實現的確定共享文件夾的本地路徑？