vb点虐 文件夹浏览 vbnet filestream
用VB（或者VB点虐 ）怎样打开“浏览文件夹窗口”？（如图）
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
vb点虐 文件夹操作
vb点虐 使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树拿镇袭视图控件上显示的说明文本
Me.FolderBrowserDialog1.Description
=
"请选择输出报表所旅颂在路径:"
'设置从其开始浏览的根文件夹
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路径（包含文件名消兄）
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中针对你所需要的文件进行操作等
用vb点虐 怎么实现文件夹及文件的搜索
方法很多，下面列举一个：
窗体上添加2个列表框，一个谨桐按钮：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索轮腔并显示腊晌衫子文件夹
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并显示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
网页名称：vb点虐 文件夹浏览 vbnet filestream
标题网址：http://shouzuofang.com/article/ddpehep.html