Private Sub ShowDrives() |
Dim d() As String |
d = System.IO.Directory.GetLogicalDrives() |
Dim en As System.Collections.IEnumerator |
en = d.GetEnumerator |
While en.MoveNext |
Console.WriteLine( CStr (en.Current)) |
End While |
End Sub |