Excel VBA + 列出所有映射的网络驱动器和网络 shortcuts/locations

Question

我正在打开时创建一个下拉列表，用于填充用户的映射网络驱动器（驱动器号）和任何网络位置（文件夹快捷方式）。基本上您会在我的 Computer/This PC 的“网络位置”部分看到的内容。

使用 VBA 我知道您可以使用文件脚本对象筛选映射的驱动器，但我一直未能成功获取网络位置。

使用 Object.enumNetworkDrives 尝试 Wscript.Network 对象似乎在工作中工作正常，但在家中远程工作时似乎没有引入网络位置。

是否有更好的 and/or 更一致的方法（有一个很好的 VBA 示例）来使用 VBA 获取所有映射的驱动器和网络位置？

Answer 1

我建议你看看WMI。这是一个帮助您入门的简短示例：

Sub ListDrives()
    WQL = "Select * From Win32_LogicalDisk"
    Set SrvEx = GetObject("winmgmts:root/CIMV2")
    Set WMIObj = SrvEx.ExecQuery(WQL)
    For Each WMIObjEx In WMIObj
        Debug.Print WMIObjEx.Path_.RelPath
    Next
End Sub

Excel VBA + 列出所有映射的网络驱动器和网络 shortcuts/locations

Excel VBA + List all mapped network drives and network shortcuts/locations

excel

vba

shortcut

drive