紧急求助各位大哥:怎样打开磁盘文件?
小弟做了一个界面:上面有一个命令按扭,点击后浏览选择磁盘上的文件,请问各位大哥,这个命令按扭的命令怎么写,还有就是选择出来的文件的磁盘地址怎么传递到文本框中,谢谢谢谢!!!P.S:不好意思,刚开始接触VB,麻烦各位了!
可以使用commondialog控件。
Private Sub Command1_Click() '
设置“CancelError
”为True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'
设置标志CommonDialog1.Flags = cdlOFNHideReadOnly
'
设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
'
指定缺省的过滤器CommonDialog1.FilterIndex = 2
'
显示“打开”对话框CommonDialog1.ShowOpen
'
显示选定文件的名字MsgBox CommonDialog1.filename
Exit Sub
ErrHandler
:'
用户按了“取消”按钮Exit Sub
End Sub