vb6选择文件夹如何仅选择文件夹，显示完整路径、新建文件夹

f8b1987

在VBA中，可以使用以下代码实现
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show Then
                Path = .SelectedItems(1)
            End If
        End With
但是在VB6中（无excel环境下），如何实现类似的对话框呢？


对话框中显示完整地址栏，且可以修改；
选中文件夹时，右下角不是打开按钮，是确定按钮；
双击文件夹时，可以进入下一层文件夹；
不会显示文件夹中的文件；
右键可以修改文件夹名称，可以新建文件夹。