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

2020-03-24 18:18:30

字體：大中小

來源：轉載

供稿：網友

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
這說明了什么呢？這說明現在您可以使用html' target='_blank'>命令提示符打開 Windows 資源管理器，也可以使用 GUI 打開 Windows 資源管理器，這完全取決于您。
html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：用vbs操作注冊表實例代碼

下一篇：好玩的vbs特色代碼vbs棧類