Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
For i As Integer = 0 To ds.Length - 1
ds(i).DriveType.ToString '驱动器类型
ds(i).Name '盘符(驱动器名)
ds(i).IsReady.ToString '是否就绪
If ds(i).IsReady = True Then
ds(i).VolumeLabel '卷标
ds(i).TotalSize.ToString '驱动器容量
ds(i).TotalFreeSpace.ToString '驱动器可用容量
End If
Next