在VBA中，可以使用以下代码实现
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show Then
                Path = .SelectedItems(1)
            End If
        End With
但是在VB6中（无excel环境下），如何实现类似的对话框呢？对话框中显示地址栏（可以修改）；
选中文件夹时，右下角不是打开按钮，是确定按钮；
不会显示文件夹中的文件；
右键可以修改文件夹名称，可以新建文件夹。

你好，你这些代码，我发贴之前也从ChatGPT得到过，实际上它是选择文件，返回文件夹地址。
假设文件夹内是空的，就无法返回文件夹地址了

这个也是无法单独选择文件夹的