一、顯示“選擇文件”的對話框

問： 嗨，Scripting Guy！有沒有什么方法可以讓我使用腳本向用戶顯示一個對話框，供用戶選擇文件使用？

答：您好。｜
　　如果您使用的是 Windows 2000，我們不知道實現此操作的方法，至少操作系統中沒有內置這樣的方法。
　　但如果您使用的是 Windows XP，情況就不同了。在 Windows XP 上，您可以使用"UserAccounts.CommonDialog” 對象向用戶顯示一個標準的“文件打開”對話框。

      可以用類似以下代碼的腳本：

1）我們首先創建一個對 UserAccounts.CommonDialog 對象的對象引用（名為“objDialog”）。

2）接著，我們設置對話框的“篩選”屬性。我們要顯示所有文件，所以我們將篩選設置成這樣：
          objDialog.Filter = "All Files|*.*"

     假如我們只想顯示文本文件，那該怎么辦？在這種情況下，我們將使用以下篩選：
          objDialog.Filter = "Text Files|*.txt"

      您也許能夠看出它是如何運行的：我們為文件類型提供說明 (Text Files)，然后插入一個豎線分隔符 (|)，最后使用標準的通配符來指示所有 .txt 文件 (*.txt)。
      是不是想默認顯示 .txt 文件，然后為用戶提供查看所有文件的選項？那么可以使用以下代碼：
          objDialog.Filter = "Text Files|*.txt|All Files|*.*"

      試一試，您就明白我們的意思了。

3）然后，我們指定默認文件夾。
      默認情況下，我們希望對話框顯示位于驅動器 C 的根文件夾中的文件，所以我們這樣設置“InitialDir”屬性：
          objDialog.InitialDir = "C:\"

      希望顯示 C:\Windows 文件夾中的文件嗎？那么可以使用以下代碼：
          objDialog.InitialDir = "C:\Windows"

      不必擔心：這是一個真正的“文件打開”對話框，所以您可以隨意單擊，并且可以隨時停下來。您從 C:\Windows 開始并不意味著您只能打開該文件夾中的文件。

4）最后，我們使用下面這行代碼顯示對話框：

          intResult = objDialog.ShowOpen

　　現在，我們只需坐下來，等待用戶選擇文件并單擊“確定”（或者等待用戶單擊“取消”）。
　　如果用戶單擊“取消”，則變量 intResult 將被設置為 0。在我們的腳本中，我們檢查 intResult 的值，如果是 0，我們將只需要使用 Wscript.Quit 來終止此腳本。
　　但是如果用戶實際上選擇了文件并單擊了“確定”，那該怎么辦？在這種情況下，intResult 將被設置為 -1，“FileDialog”屬性將被設置為所選文件的路徑名。我們的腳本只回顯路徑名，這意味著我們將得到類似以下內容的輸出：

          C:\WINDOWS\Prairie Wind.bmp

　　不用說，您并不局限于只回顯文件路徑。實際上，您可以使用 WMI、FileSystemObject 或一些其他技術來綁定該文件，然后對其執行刪除、復制、壓縮或檢索文件屬性等操作 — 您對文件能夠執行的操作差不多都可以對它執行。

　　但無論如何，您都需要使用腳本。

　　順便說一句，使用此方法，您一次只能選擇一個文件，而不能按住“Ctrl”鍵選擇多個文件。有一種方法可以選擇多個文件，至少在 XP 計算機上可以，但是我們只能將此問題留到以后的專欄中討論了。

二、顯示“選擇文件夾”對話框？

問：嗨，腳本專家！在前面的專欄中，您為我們展示了如何給用戶顯示對話框，使他們能夠選擇文件。存在給用戶顯示一個對話框，只讓他們選擇文件夾的辦法嗎？

答：您好。

　　實際上，我們有 BrowseForFolder 方法，它是 Windows Shell 對象的一部分。

　　讓我給您一個腳本示例，然后講一下它的工作方式：

　　定義完常量后，我們創建 Shell.Application 對象的實例，然后使用以下代碼顯示“瀏覽文件夾”對話框：
　　　　Set objFolder = objShell.BrowseForFolder _
　　　　(WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")

　　您可以看到，我們只是調用 BrowseForFolder 方法，傳遞了四個參數：
　　　　WINDOW_HANDLE，正如我們所說明的，是分配給對話框窗口的數字 ID。
　　　　文本字符串 Select a folder:，將作為顯示在對話框中的說明性消息。
　　　　OPTIONS，表示構造對話框所用選項的常量。
　　　　C:\，將作為對話框的根文件夾。對話框將打開 C:\，但不允許您選擇樹視圖中較上方的文件位置（例如，您不能選擇“我的電腦”）。如果將根文件夾設置為 C:\Scripts，則將只允許用戶選擇文件夾 C:\Scripts 及其所有子文件夾。

　　該代碼將產生一個類似屏幕上顯示的對話框。
　　（您是否有疑問，是的，您以前曾見過此對話框。許多 Windows 應用程序使用同樣的方法，同樣的對話框。）

　　此時，我們的腳本暫停，等候用戶選擇文件夾并單擊確定，或者單擊取消。當用戶進行了這兩個操作之一，對話框將被清除，操作將存儲在對象引用 objFolder 中。

　　那么我們如何知道用戶是否選擇了一個文件夾并單擊了確定，或者只單擊了取消？以下代碼塊就用來解決這個問題：
　　　　If objFolder Is Nothing Then
　　　　Wscript.Quit
　　　　End If

　　該代碼檢查我們的對象引用 (objFolder) 是否等于一個真正對象（這是關鍵字 Nothing 的用途）。如果 objFolder 等于 Nothing，則意味著用戶單擊了取消；如果是那樣的話，我們只簡單用 Wscript.Quit 退出腳本。如果 objFolder 不等于 Nothing，那么 objFolder 一定指向一個真正的對象；于是腳本將繼續運行。

　　由于 Shell 對象的特點，以下兩行代碼是必要的：
　　　　Set objFolderItem = objFolder.Self
　　　　objPath = objFolderItem.Path

　　當用戶選擇文件夾并單擊確定，他們將得到 Shell Folder 對象的實例。然而，由于某些原因您不能使用 Shell Folder 對象；如果我們要檢索選定文件夾的路徑，我們得用 FolderItem 對象來代替。（為什么是這樣呢？我們不知道。）于是，我們的第一行代碼使用 Self 方法返回一個 FolderItem 對象，該對象正與我們的 Folder 對象相同。第二行代碼將到此 FolderItem 對象的路徑存儲到變量 objPath 中。看上去有點笨拙，但它確實能夠工作。

　　最后我們回顯到選定文件夾的路徑，到此工作既已完成。

　　正如我們說明的，示例對話框使用 C:\ 作為根文件夾，不允許您選擇位于計算機其他地方的文件夾。有時這樣做很好；這樣會迫使用戶從一組特定文件夾中進行選擇。但有時，想使用戶能夠選擇文件系統中任意位置的文件夾。這可能嗎？

　　當然可以。我們不詳述這個修改后的腳本，但該腳本會將“我的電腦”設置為根文件夾：