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

Sub ListNetworkDrives()
    Dim fso As Scripting.FileSystemObject
    Dim network As Scripting.Network
    Dim drive As Scripting.Drive
    Dim shortcut As Object
    Dim row As Long
    
    ' 创建FileSystemObject和Network对象
    Set fso = New Scripting.FileSystemObject
    Set network = New Scripting.Network
    
    ' 设置表头
    Cells(1, 1).Value = "驱动器名称"
    Cells(1, 2).Value = "驱动器路径"
    
    row = 2
    
    ' 列出所有映射的网络驱动器
    For Each drive In fso.Drives
        If drive.DriveType = 3 Then ' 网络驱动器
            Cells(row, 1).Value = drive.DriveLetter
            Cells(row, 2).Value = drive.ShareName
            row = row + 1
        End If
    Next drive
    
    ' 列出所有网络快捷方式/位置
    For Each shortcut In network.Shortcuts
        Cells(row, 1).Value = shortcut.Name
        Cells(row, 2).Value = shortcut.TargetPath
        row = row + 1
    Next shortcut
    
    ' 释放对象
    Set fso = Nothing
    Set network = Nothing
End Sub