您好，BF。如果您使用的是 Windows 2000，我們不知道實現(xiàn)此操作的方法，至少操作系統(tǒng)中沒有內(nèi)置這樣的方法。但如果您使用的是 Windows XP，情況就不同了。在 Windows XP 上，您可以使用“UserAccounts.CommonDialog”對象向用戶顯示一個標準的“文件打開”對話框。可以用類似以下代碼的腳本：

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If 

這是一個小腳本，所以讓我們逐行進行解釋吧。我們首先創(chuàng)建一個對 UserAccounts.CommonDialog 對象的對象引用（名為“objDialog”）。接著，我們設(shè)置對話框的“篩選”屬性。我們要顯示所有文件，所以我們將篩選設(shè)置成這樣：

objDialog.Filter = "All Files|*.*" 

假如我們只想顯示文本文件，那該怎么辦？在這種情況下，我們將使用以下篩選：

objDialog.Filter = "Text Files|*.txt" 

您也許能夠看出它是如何運行的：我們?yōu)槲募愋吞峁┱f明 (Text Files)，然后插入一個豎線分隔符 (|)，最后使用標準的通配符來指示所有 .txt 文件 (*.txt)。是不是想默認顯示 .txt 文件，然后為用戶提供查看所有文件的選項？那么可以使用以下代碼：

objDialog.Filter = "Text Files|*.txt|All Files|*.*" 

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

然后，我們指定默認文件夾。默認情況下，我們希望對話框顯示位于驅(qū)動器 C 的根文件夾中的文件，所以我們這樣設(shè)置“InitialDir”屬性：

objDialog.InitialDir = "C:\" 

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

objDialog.InitialDir = "C:\Windows" 

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

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

intResult = objDialog.ShowOpen 

現(xiàn)在，我們只需坐下來，等待用戶選擇文件并單擊“確定”（或者等待用戶單擊“取消”）。如果用戶單擊“取消”，則變量 intResult 將被設(shè)置為 0。在我們的腳本中，我們檢查 intResult 的值，如果是 0，我們將只需要使用 Wscript.Quit 來終止此腳本。

但是如果用戶實際上選擇了文件并單擊了“確定”，那該怎么辦？在這種情況下，intResult 將被設(shè)置為 -1，“FileDialog”屬性將被設(shè)置為所選文件的路徑名。我們的腳本只回顯路徑名，這意味著我們將得到類似以下內(nèi)容的輸出：

C:\WINDOWS\Prairie Wind.bmp 

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

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

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