通过VBA中的文件夹选择器查看内部文件

Question

我有一个宏，我可以通过双击选择文件夹。此文件夹的路径稍后用于打开某些文件（在文件夹中）。

用于选择文件夹的宏的代码是：

Sub GetFolder()

    Dim folderselected As String

    Set myFolder = Application.FileDialog(msoFileDialogFolderPicker)

    With myFolder

        .Title = "Choose Folder"
        .AllowMultiSelect = False

        If .Show <> -1 Then
            Exit Sub
        End If

        folderselected = .SelectedItems(1)

    End With

    DataPath = folderselected & "\"

End Sub

现在，当我单击该文件夹时，浏览器界面会显示。＆＃34;没有项目符合您的搜索＆＃34;，尽管文件夹中有文件。

有没有办法扩展这段代码，在那里我可以选择文件夹，重新启动数据路径，还可以在资源管理器显示中查看文件（但当然不选择它）??

谢谢。