用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
链接URL：http://pwwzsj.com/article/ddpehep.html