Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ListNetworkDirves()
Dim WSH As Object
Dim oDrives As Object
Dim i As Integer
Set WSH = CreateObject("WScript.Network")
Set oDrives = WSH.EnumNetworkdrives
For i = 0 To oDrives.Count - 1 Step 2
Debug.Print oDrives.Item(i) & " = " & oDrives.Item(i + 1)
Next i
End Sub