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