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

使用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代码帮助吗？

最佳答案

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

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

关于vb6 - 如何仅通过使用通用对话框控件选择文件夹，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/1584045/