遍历驱动器
作者:孟宪会 阅读:6544 发表于:2004-10-21 17:06:35
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