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对