如图，在VB中，如何打开这样的文件夹选择对话框。用控件，还是API，谢谢！

Question

是打开【 文件夹 】，不是打开【 文件 】！！！

Answer 1

打开文件对话框，添加CommonDialog控件就可以。
添加方法：【工程】-【部件】在部件对话框勾选：Microsoft Common Dialog Control 6.0 (SP3)
这样控件添加在工具箱中了，拖动到界面即可。
主要代码：
CommonDialog1.InitDir = "c:/" '对话框初始目录
CommonDialog1.Filter = "文本文件 (.txt)|*.txt|图片(.gif)|*.gif" '设置打开文件类型
CommonDialog1.ShowOpen '打开文件对话框
'CommonDialog1.ShowSave '保存文件对话框
'CommonDialog1.ShowColor '打开颜色设置对话框 等等追问

这是选择【文件】的对话框啊，我要的【文件夹】，谢谢！

追答

你的图就是打开文件对话框，VB中如果是打开、浏览目录，使用DirListBox控件，但和你的图完全不一样。

追问

这不是VB中做好了的，这是其他软件的一个文件夹选择对话框，我就是想知道VB能否做出一个像这样的文件夹选择对话框。

追答

可以，使用用户控件就可以自己做，做好后保存为*.ocx即可。

追问

有没有什么参考资料？

追答

MSDN

Answer 2

简单的就用控件来做吧，复杂的要修改“类”。

 

Answer 3

用控件CommonDialog
CommonDialog1.CancelError = True
CommonDialog1.InitDir = 桌面
CommonDialog1.Flags = &H40
CommonDialog1.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt
CommonDialog1.Filter = "Bitmap Files (*.doc)|*.doc|"
CommonDialog1.ShowOpen追问

这是选择【文件】的对话框啊，我要的【文件夹】，图上是【Floder Name:】，谢谢！