Private Sub Command1_Click()
创新互联建站是一家专业提供腾冲企业网站建设,专注与成都网站制作、成都做网站、H5建站、小程序制作等业务。10年已为腾冲众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 0, "")
If Not sf Is Nothing Then
MsgBox "选择的文件夹是" vbCrLf sf.self.Path
End If
Set sf = Nothing
End Sub
1、启动vb6。
2、在菜单-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)
3、添加CommonDialog1、Command1到窗体。
4、程序代码:
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
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
Filter 属性设置当前文件名筛选字符串,该字符串确定出现在对话框的“文件类型”框中的选项。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引;
openFileDialog1.RestoreDirectory = true ;
对于每个筛选选项,筛选器字符串都包含筛选器说明,后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。