vb通用对话框过滤 文件类型

通过使用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

commondialog1.filter="文本文件（*.txt）|*.txt"

filter="*.txt"