Private Sub Command1_Click()
  
dim strFile as string
    
With CommonDialog1 '通用对话框
    .Filter = "所有文件*.*|*.*|"
   '限制只能选择文件类型
    .CancelError = False
    .ShowOpen
       '显示[打开]对话框
    End With
strFile = CommonDialog1.FileName
    '获取文件名
End sub
新建窗体,添加按钮,添加Windows Common Controls 6.0,把上面的代码放进去就可以选择要打开的文件了