<!--StartFragment-->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
<!--StartFragment-->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