Untitled
VB6的通用对话框（Common Dialog）控件使用户可以更轻松地来选择文件，但对于
文件夹应该怎样做呢？同样简便易行的方法就是使用微软的外壳程序与自动化组件。（Shell and Automation component）
首先，在您的项目中对这一组件添加一个引用，它位于Shell32.dll，您还需要在代码中加入相应的声明语句，声明的内容可以参见列表A。
列表A
Private shlShell As Shell32.Shell
Private shlFolder As Shell32.Folder
Private Const BIF_RETURNONLYFSDIRS = &H1
然后，再建立一个外壳程序类的实例：
Set shlShell = New Shell32.Shell
最后，显示对话框并返回结果：
Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "Select a Folder", _
BIF_RETURNONLYFSDIRS)
现在，选定的
文件夹就可以通过shlFolder.Title来使用了。
责任编辑：
张琎
查看本文的国际来源
