Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim Drives = From drive In My.Computer.FileSystem.Drives() _
Where drive.DriveType = System.IO.DriveType.Network
Console.WriteLine("Network Drives:")
For Each d In Drives
Console.WriteLine(d.Name)
Next
End Sub
End Class