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