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,把上面的代码放进去就可以选择要打开的文件了