Public Class MainClass
 
	Private Declare Function QueryDosDevice Lib "kernel32.dll" Alias _
  "QueryDosDeviceA" ( _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As System.Text.StringBuilder, _
        ByVal ucchMax As Int32) As Int32
 
	Public Shared Sub Main()
		'// Debug.WriteLine (System.Environment.Version.ToString())
		Dim out As System.Text.StringBuilder 
        For Each d As String In New String() {"D:", "E:", "F:", "G:"}
        	 out = New System.Text.StringBuilder(" ", 100)
            If not QueryDosDevice(d, out, out.Capacity) = 0 Then 
            	Debug.WriteLine(out.ToString() + " mount on " + d)
            End If
        Next		
	End Sub
 
End Class