如何在资源管理器中选择文件

Question

我必须编辑在 Visual Studio 中以 vb.net 语言编写的加载项。我需要的是一种从活动 Windows 资源管理器窗口中获取所有当前选定文件列表的方法，以便我可以将其传递给程序中的另一个函数。我在 Visual Studio 方面不是很有经验（我的大部分经验都是在使用 VB 6.0 的 VBA 中），所以在我花太多时间走错路之前，我正在寻找一些建议。

我正在考虑使用 Windows Shell 对象。我发现了一些用 C++ 编写的示例，并且我花了一些时间阅读 MSDN，但在我投入大量时间之前，我想在这里接触更有经验的 VB.Net/VS 用户。我知道 .Net 有很多用于处理 system.io 命名空间下的文件/文件夹对象的内置选项，但我还没有找到任何可以让我查看资源管理器窗口中当前选定项目的内容。

我只是想知道 .Net 中是否有可以满足我需要的原生功能？
如果不是，使用 Windows Shell 对象是最好的方法吗？

Answer 1

这只是this answer 的一个小版本。与其像链接的答案那样处理重点项目，不如从ShellFolderView 获取选定的项目。 System.IO 不会对你有多大好处，因为文件/文件夹相关的类与文件系统有关——文件不知道资源管理器是否选择了它们。

首先，添加对Microsoft Shell Controls and Automation 和Microsoft Internet Controls 的引用（参见上面的链接）。

Imports Shell32
Imports SHDocVw

Private Function GetExplorerSelectedFiles() As String()
    Dim ExplorerFiles As New List(Of String)

    Dim exShell As New Shell


    For Each window As ShellBrowserWindow In DirectCast(exShell.Windows, IShellWindows)
        ' check both for either interface to work
        '    add an Exit for to just work the first explorer window 
        If TryCast(window.Document, IShellFolderViewDual) IsNot Nothing Then
            For Each fi As FolderItem In DirectCast(window.Document, IShellFolderViewDual).SelectedItems
                ExplorerFiles.Add(fi.Path)
            Next

        ElseIf TryCast(window.Document, ShellFolderView) IsNot Nothing Then
            For Each fi As FolderItem In DirectCast(window.Document, ShellFolderView).SelectedItems
                ExplorerFiles.Add(fi.Path)
            Next

        End If
    Next

    Return ExplorerFiles.ToArray
End Function

用法（在按钮单击中）：

Dim files = GetExplorerSelectedFiles()
lbFiles.Items.AddRange(files)

---

修改为在 IShellFolderViewDual 或 ShellFolderView 上工作