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