关于CommnnDialog 的问题？

Question

使用该控件打开文件夹后，如何只显示某一指定类型的文件？选取文件后，点击打开如何在listbox中显示文件名，也就是实现添加播放列表的功能，谢谢

Answer 1

Private Sub Command1_Click()
    CommonDialog1.Filter = "暥杮暥審(*.txt)|*.txt|強桳暥審(*.*)|*.*"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then List1.AddItem CommonDialog1.FileName
End Sub

Answer 2

CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CommonDialog1.Filter = "文本文件(*.txt)|*.txt|Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*"

Answer 3

CommonDialog1.FileName得到的是路径及文件名,如果只需要文件名,可以这样取:If CommonDialog1.FileName <> "" Then
        List1.AddItem Mid(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1)
End If