vb中显示文件夹浏览对话框.docVIP

vb中显示文件夹浏览对话框 使用vb的Shell对象，用它前应先引用Microsoft Shell Controls And Automation对象。 Private Sub CmdBrowse_Click()Dim a As New Shell Shell对象Dim b As FolderSet b = a.BrowseForFolder(0, 选择文件夹, 0)‘a.Open b打开文件 msgbox b.Items().Item().Path显示文件完整路径End Sub 什么是Shell对象？具体来讲，就是微软对一些常用外壳操作函数的封装。象打开或浏览一个文件夹、查找文件、关闭计算机等等，而且还能浏览整个文件系统，获取文件或文件夹的各种信息。由于这些封装是建立在OLE自动化服务的基础之上，所以我们就可以在VB中方便的使用它们。 在VB中使用shell VB自身所提供的对象或函数的功能也许比较有限，但能够引用各式各样的类型库和自动化对象就将其功能无限的扩展了！具体做法如下（以中文VB6为例）： ---- 新建一个工程，在“工程”菜单中选择“引用”，你将看到一个“引用对话框”，然后在“可用的引用”中选择“Microsoft Shell Controls and Automation”，这样你就可以在程序中使用Shell对象了。 ---- 下面来试一试Shell对象提供的方法。在窗体（Form1）中添加一个按扭（Button1），然后在Button1的Click事件中添加如下代码： Dim MyShell As Shell Set MyShell = New Shell MyShell.FindFiles ---- 当MyShell变量成为Shell对象的实例之后，你在编辑的过程中就可以看到Shell对象的所有方法。上面的代码使用的是FindFiles方法，它将显示“查找文件”对话框。下表给出了Shell对象中常用的方法，以供大家参考。 ---- 方法 描述 ---- BrowseForFolder 显示浏览文件夹对话框，包括4个参数： ---- Hwnd, Title, Options, [RootFolder] ---- Hwnd：包含对话框的窗体句柄（handle），一般设置为0。 Title：将在对话框中显示的说明，为字符串。 ---- Options：使用对话框的特殊方式，为长整数，一般设置为0。 Options，浏览方式，见下： 0x0001 For finding a folder to start document searching 0x0002 For starting the Find Computer 0x0004 对话框加宽 0x0008 确定按钮变灰失效 0x0010 在对话框顶部加入编辑框 0x0020 insist on valid result (or CANCEL) 0x1000 确定按钮变灰失效 0x2000 可选当前文件，不包括子目录文件，确定按钮变灰失效,(可同时选0x0001使确定按钮有效） 0x4000 浏览所有项，可选文件或文件夹 [RootFolder]：可选的，用来设置浏览的最顶层文件夹，缺省时为“桌面”，你可以将其设置为一个路径或“特殊文件夹常数”。 RootFolder，起始根目录，可选项，可以自己指定目录字符串，也可以是系统目录的数字表示，数字含义见下： 0x0000 桌面 0x0001 IE浏览器 0x0002 C:\WINDOWS\Start Menu\Programs目录 0x0003 控制面板 0x0004 打印机 0x0005 我的文档 0x0006 收藏 0x0007 启动 0x0008 Recent文档 0x0009 发送到 0x000a