Excel VBA +列出所有映射的网络驱动器和网络快捷方式/位置

Question

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

使用VBA我知道你可以使用filescripting对象筛选映射的驱动器但是我没有成功获取网络位置。

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

是否有使用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