| 遍历驱动器 |
作者：孟宪会 发布日期：2004-10-21 17:06:35
|
| <![CDATA[
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
]]> |
原文地址：http://dotnet.aspx.cc/article/9c6949dc-4cc8-4ec2-d59e-3e4cff4b9b13/print.aspx
© 版权所有 【孟宪会之精彩世界】TM 2012