文章編號: 279508 - 上次校閱: 2006年11月23日 - 版次: 2.3

ACC2002：如何顯示與使用 Microsoft Access 2002 中的檔案對話方塊

檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
進階使用者：需要專家層級的程式碼撰寫、互動作業和多使用者技能。

本文適用在 Microsoft Access 資料庫 (.mdb) 和 Microsoft Access 專案 (.adp)。

全部展開 | 全部摺疊

結論

本文將告訴您，如何在 Microsoft Access 中使用新的 FileDialog 方法，來顯示內建的檔案對話方塊以及判斷使用者選取哪些檔案。

注意：FileDialog 方法僅能夠在 Microsoft Access 的完整零售版本中正常運作。本方法無法在 Microsoft Access 執行階段應用程式中正常運作。
回此頁最上方

其他相關資訊

在舊版的 Microsoft Access 中，您無法在不使用 Microsoft Common Dialog ActiveX 控制項或呼叫 Windows API 的情況下顯示檔案對話方塊。

在 Microsoft Access 2002 中，FileDialog 方法讓您能夠顯示 Microsoft Access 使用的檔案對話方塊，以及判斷使用者選取了哪些檔案。FileDialog 物件的 SelectedItems 集合包含使用者所選取檔案的路徑。您可以藉由使用 For...Each 迴圈來列舉此集合並顯示每個檔案。下列範例會循序處理整個 ItemsSelected 集合，然後在清單方塊中顯示檔案。

Microsoft 僅提供示範性的程式設計範例，不做任何明示或默示的保證，其中包括 (但不限) 其適售性與適合某特定用途之默示擔保。本文假設您對於用以建立和偵錯程序的工具，以及示範所用的程式設計語言相當熟悉。Microsoft 技術支援工程師可以協助說明特定程序的功能，但無法修改這些範例以提供附加功能或建構程序來滿足您的特定需求。倘若您的程式設計經驗有限，請聯絡 Microsoft 認證夥伴或撥打 Microsoft 收費諮詢熱線：(800) 936-5200。如需有關 Microsoft 認證夥伴的詳細資訊，請造訪下列 Microsoft 網站：
https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)
如需有關可用支援選項與如何聯絡 Microsoft 的詳細資訊，請造訪下列 Microsoft 網站：
http://support.microsoft.com/default.aspx?scid=fh;ZH-TW;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;zh-tw;cntactms)
  1. 開啟範例資料庫 Northwind.mdb。
  2. 在「設計」檢視中建立新的空白表單。
  3. 將下列控制項新增至表單：
    
   命令按鈕
   --------------------------
姓名：cmdFileDialog
   標題：新增檔案
   OnClick：[事件程序]

   清單方塊
   -------------------------
姓名：檔案清單
   資料來源類型：值清單
  4. 在 [檢視] 功能表上，按一下 [程式碼] 以便在「Visual Basic 編輯器」中開啟表單的模組。
  5. 在[工具] 功能表上，按一下 [參考]。
  6. 按一下以選取 [Microsoft Office 10.0 物件檔案庫] 核取方塊。
  7. 按一下 [確定] 以關閉 [參考] 對話方塊。
  8. 將下列程式碼新增至表單的模組：
    Option Compare Database
Option Explicit
      
Private Sub cmdFileDialog_Click()

'Requires reference to Microsoft Office 10.0 Object Library.

   Dim fDialog As Office.FileDialog
   Dim varFile As Variant

   'Clear listbox contents.
   Me.FileList.RowSource = ""

   'Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      'Allow user to make multiple selections in dialog box
      .AllowMultiSelect = True
            
      'Set the title of the dialog box.
      .Title = "Please select one or more files"

      'Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "Access Databases", "*.MDB"
      .Filters.Add "Access Projects", "*.ADP"
      .Filters.Add "All Files", "*.*"

      'Show the dialog box. If the .Show method returns True, the
      'user picked at least one file. If the .Show method returns
      'False, the user clicked Cancel.
      If .Show = True Then
         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            Me.FileList.AddItem varFile
         Next
      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With
End Sub
  9. 將表單儲存為 Form1 然後關閉它。
  10. 在「表單」檢視中開啟 Form1。
  11. 按一下 [新增檔案]。請注意會出現 [請選取一個或多個檔案] 對話方塊。
  12. 請選取一個或多個檔案，然後按下 [確定]，或按一下 [取消]。
如果選取一個或多個檔案，請注意這些檔案名稱會顯示在清單方塊中。如果按一下 [取消]，請注意您會收到指出您已按下 [取消] 的訊息。
回此頁最上方

?考

如需有關使用檔案對話方塊能夠進行哪些作業的詳細資訊，在「Visual Basic 編輯器」中按一下 [說明] 功能表的 [Microsoft Visual Basic 說明]，在「Office 小幫手」或「解答精靈」輸入 filedialog object，再按一下 [搜尋] 以檢視主題。
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Access 2002 Standard Edition
回此頁最上方
關鍵字：?
kbhowto KB279508
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。