1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim a() As String, i As Integer, num As Integer
For i = 0 To Text1.Count - 1
Text1(i).Text = ""
Next
CommonDialog1.FileName = ""
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 1
'允许多重选择
CommonDialog1.Flags = cdlOFNAllowMultiselect
'设置打开的文件名的最大尺寸
CommonDialog1.MaxFileSize = 4096
' 显示“打开”对话框
CommonDialog1.ShowOpen
'放入textbox数组
a = Split(CommonDialog1.FileName)
num = UBound(a)
If num > Text1.Count Then num = Text1.Count
For i = 1 To num
Text1(i - 1) = a(i)
Next
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Command1_Click()
Dim a() As String, i As Integer, num As Integer
For i = 0 To Text1.Count - 1
Text1(i).Text = ""
Next
CommonDialog1.FileName = ""
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 1
'允许多重选择
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
'设置打开的文件名的最大尺寸
CommonDialog1.MaxFileSize = 4096
' 显示“打开”对话框
CommonDialog1.ShowOpen
Debug.Print InStr(CommonDialog1.FileName, Chr(160))
'放入textbox数组
a = Split(CommonDialog1.FileName, Chr(160))
num = UBound(a)
If num > Text1.Count Then num = Text1.Count
For i = 1 To num
Text1(i - 1) = a(i)
Next
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Dim I As Long, J() As String
CommonDialog1.ShowOpen
J = Split(CommonDialog1.FileName, Chr(32))
For I = 0 To UBound(J)
Debug.Print """" & J(I) & """"
Next