用VB（或者VB.net）怎样打开“浏览文件夹窗口”？（如图）

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

VB 显示打开文件对话框

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

VB.net怎么弹出文件夹路径选择框

选择文件夹  在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中

然后 代码写在  按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件 在工具箱 - 对话框 里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出 通用对话框  选择好路径后 确定 ，编辑框里就会显示选择的路径

VB.NET中，文件对话框（OpenFileDialog）显示某种设定的文件类型需要修改什么属性？

Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选项。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引；

openFileDialog1.RestoreDirectory = true ;

对于每个筛选选项，筛选器字符串都包含筛选器说明，后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。

网站名称：vb.net打开文件框 vbs打开窗口
本文URL：http://cdweb.net/article/hggjgp.html