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

我有一个macros，我可以通过双击select一个文件夹。 此文件夹的path稍后用于打开一些文件（在文件夹中）。

macrosselect文件夹的代码是：

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 

现在，当我点击该文件夹，资源pipe理器界面显示“没有项目匹配您的search”，尽pipe文件夹中有文件。

有没有办法扩展这个代码，在那里我可以select文件夹，退休的数据path，也可以在浏览器显示（但当然不是select它）查看文件？

谢谢。