Question

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

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

使用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

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

1 个答案: