Nothing

这个简单,使用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
        
End Sub