透過使用CommonDialog 控制元件的Filter 屬性來過濾。

可以設定它的Filter 屬性，這樣對話就只顯示某種檔案型別，如文字檔案。

Filter 屬性（公共對話方塊），返回或設定在對話方塊的型別列表框中所顯示的過濾器。

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.Filter = "Text Files" & "(*.txt)|*.txt|" "本行程式碼設定只顯示文字檔案的過濾器

" 指定預設的過濾器

CommonDialog1.FilterIndex = 2

" 顯示“開啟”對話方塊

CommonDialog1.ShowOpen

" 顯示選定檔案的名字

MsgBox CommonDialog1.FileName

Exit Sub

ErrHandler:

Exit Sub

End Sub