如何打开文件选择对话框？

Question

用commondilog控件
CommonDialog1.Filter = "vvv|*.exe"
CommonDialog1.ShowOpen
CommonDialog1.FileName '文件名

Answer 1

Private Sub Command1_Click()  
  On Error GoTo cancel
  
    CommonDialog1.FileName = ""
    CommonDialog1.Filter = "文件bmp|*.bmp|文件JPG|*.JPG|文件GIF|*.GIF"    
    CommonDialog1.ShowOpen    Dim a As String
    a = CommonDialog1.FileTitle '得到不含路径文件名
    If a <> "" Then   
       Text1.Text = a    
    End If cancel:
    
End Sub

Answer 2

唉，又打错了，是commondialog控件

Answer 3

dlg.Filter = "文件|*.文件"
    dlg.ShowOpen
    txtPath.Text = dlg.Filename

Answer 4

Const cdlOFNExplorer = &H80000
     
    CommonDialog1.Flags = &H200  '&H80200 是多选，&H200是单选
    CommonDialog1.InitDir = App.Path
     CommonDialog1.Filter = "超文本文件 *.htm|*.htm|文本文件 *.txt|*.txt"
     CommonDialog1.filename = ""
     CommonDialog1.ShowOpen
     CommonDialog1.filename = CommonDialog1.filename & Chr(32)
  '退出
     If CommonDialog1.filename = " " Then Exit Sub
    ' CommonDialog1.filename 存的是文件名数组