vb6 - 如何仅使用通用对话框控件选择文件夹

Question

使用VB6

代码。

CommonDialog1.DialogTitle = "Open File"
CommonDialog1.Filter = "*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
If Err Then
    'MsgBox "Select Folder"
    Exit Sub
End If

从上面的代码中，我正在选择一个文件，但我不想选择一个文件，我只想选择文件夹。如何修改我的代码。

需要 vb6 代码帮助吗？

Answer 1

我已经有一段时间没有做任何视觉基本工作了，但我认为您应该使用 SHBrowseForFolder 函数，而不是使用通用对话框来获取要打开的文件的名称它已经是 Windows API 的一部分。这是 link到描述其用法的页面。

更新(2017):提供的链接已损坏，但 a backed-up version can be viewed on archive.org