这个简单,使用CommonDialog控件即可
例如
Private Sub Command1_Click()
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
如果想知道是否点了取消,可以用下面的代码
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
If Err.Number = 0 Then
MsgBox CommonDialog1.FileName
Else
MsgBox "点了取消"
End If