Visual Basic 2008 中展示所有盘符

2012-11-26

Visual Basic 2008 中显示所有盘符Imports System.IOPublic Class Form1Private Sub 显示所有盘符_Click(

Visual Basic 2008 中显示所有盘符
Imports System.IO
Public Class Form1
    Private Sub 显示所有盘符_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示所有子目录.Click
        Dim dris() As String = Directory.GetLogicalDrives
        For i = 0 To dris.Length - 1
            Debug.Print(dris(i))
        Next
    End Sub
End Class