第1个回答 2013-12-07
'添加一个command、一个text控件Option Explicit
Private Sub Command1_Click()
Dim s As String
With CreateObject("MSComDlg.CommonDialog")
.Filter = "text|*.txt|All Files|*.*"
.ShowOpen
s = .FileName
End With
Text1 = IIf(s = "", "<取消了!>", s)
End Sub