大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
成都创新互联长期为上1000+客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为邹城企业提供专业的成都网站建设、网站制作,邹城网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
添加一个form2。把他当做弹出对话框,在form2中添加一个dirlistbox控件,在form1的command1的click事件中写入form2.show。在form2的dir1的click事件中写入form1.text1.text = dir1.path就OK了,避免使用繁琐的API函数
Private Sub Command1_Click()
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