【VBA】割り当てられているネットワークドライブの一覧を取得する

VBAコード

ここでは例として
　・「割り当てられているネットワークドライブの一覧」を取得して
　・「イミディエイトウィンドウ」へ出力
します。
※割り当てられているネットワークドライブは以下の1つとします。

Option Explicit

Sub sample()
    
    Dim wshNetwork As Object
    Dim wshCollection As Object
    Dim i As Long

    Set wshNetwork = CreateObject("WScript.Network")
    
    '割り当てられているネットワークドライブの一覧を取得
    Set wshCollection = wshNetwork.EnumNetworkDrives
        
    For i = 0 To wshCollection.Count - 1 Step 2
        Debug.Print wshCollection.item(i) & _
                    " | " & _
                    wshCollection.item(i + 1)
    Next
    
    '後片付け
    Set wshNetwork = Nothing
    Set wshCollection = Nothing
    
End Sub

実行結果

「割り当てられているネットワークドライブの一覧」を取得できました。
イミディエイトウィンドウへ出力できました。

参考①

VBAで
　・ネットワークドライブの割り当て
　・ネットワークドライブの切断
もできます。

詳細は以下の記事をご確認ください。

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●イミディエイトウィンドウへ出力