CommonDialog 控制項
(「開啟舊檔」，「另存新檔」對話方塊)透過使用 訪客無法瀏覽此圖片或連結，請先 註冊 或 登入會員 。的 訪客無法瀏覽此圖片或連結，請先 註冊 或 登入會員 。 和 訪客無法瀏覽此圖片或連結，請先 註冊 或 登入會員 。 方法可顯示「開啟舊檔」或「另存新檔」對話方塊。
兩個對話方塊均可用來指定磁碟機、目錄、文件副檔名和檔名。除對話方塊的標題不同，「另存新檔」對話方塊外觀上與「開啟舊檔」對話方塊相似。
在執行階段，當使用者選擇一個檔案並關閉對話方塊時，FileName 屬性便可用來取得所選擇的檔名。
您可以設定 Filter 屬性，這樣對話方塊就只顯示某種檔案型態，例如文字檔。Flags 屬性可以用來改變對話方塊中各種不同的元素，也可以用來在某些動作發生時提示使用者，例如覆蓋檔案。
CommonDialog 控制項
(「開啟舊檔」，「另存新檔」對話方塊)範例下例顯示「開啟舊檔」對話方塊，然後在訊息方塊中顯示被選擇的檔名：
Private Sub Command1_Click()
' 設定 CancelError 為 True CommonDialog1.CancelError = True On Error GoTo ErrHandler
' 設定旗標 CommonDialog1.Flags = cdlOFNHideReadOnly
' 設定檔案類型 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定預設檔案類型 CommonDialog1.FilterIndex = 2
' Text Files(*.txt)|*.txt ' 顯示「開啟舊檔」對話方塊 CommonDialog1.ShowOpen
' 顯示所選取檔案的名稱 MsgBox CommonDialog1.filenameExit SubErrHandler：
' 使用者按了「取消」按鈕 Exit SubEnd Sub
