vb.net 教程 4-1 获取磁盘驱动器信息 DriveInfo

.Net对文件的操作主要通过System.Io命名空间进行的，包括驱动器、文件夹、文件信息的获取、简单操作，以及文件和数据流的读写等。
在本章教程中需要引用System.Io，请在窗体的所有代码之前，例如Form1窗体的代码
Public Class Form1
之前加上
Imports System.IO

磁盘驱动器（我觉得叫做磁盘分区更合适）信息可以通过System.Io命名空间下面的DriveInfo类来获得。

DriveInfo提供了如下属性：
Name：获取驱动器的名称，如 C:\。

DriveFormat：获取磁盘分区文件系统的名称，例如 NTFS、FAT32等。

DriveType：获取驱动器类型，包括CDRom（光驱）， Fixed（固定磁盘）， Network（网络设备）， NoRootDirectory， Ram（随机存取存储器）， Removable（可移动设备），或Unknown（未知设备）。

    注意：移动硬盘会识别为Fixed，优盘识别为Removable，以后有机会我将讲解如何正确识别移动硬盘。

IsReady：指示分区是否已准备就绪可以读写。

VolumeLabel 获取或设置驱动器的卷标。

RootDirectory 获取驱动器的根目录。

TotalSize：获取该分区上存储空间的总大小（以字节为单位）。

TotalFreeSpace：获取该分区上的可用空闲空间总量（以字节为单位）。

AvailableFreeSpace：获取该分区上的可用空闲空间总量（以字节为单位）。

    注意：AvailableFreeSpace不同于TotalFreeSpace，AvailableFreeSpace是当前账号的可用的空闲磁盘配额。

以及一个重要方法：
GetDrives()：检索计算机上的所有逻辑驱动器的驱动器，返回DriveInfo数组
    注意：此方法是静态方法，不用定义实例即可使用。

以下来看看如何使用DriveInfo：
设计图示如下：



当载入窗体时，将电脑上的所有分区的名称加入cbDriver：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each drive As DriveInfo In DriveInfo.GetDrives
cbDriver.Items.Add(drive.Name)
Next
End Sub

当点击并选择了cbDriver中某一项时，在文本框中显示该分区的信息：

Private Sub cbDriver_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbDriver.SelectedIndexChanged
Dim drive As DriveInfo
drive = New DriveInfo(cbDriver.Text)
txtDriveInfo.Text = ""
If drive.IsReady Then
txtDriveInfo.Text = ""
txtDriveInfo.Text &= "选择盘符：" & drive.Name & ControlChars.CrLf
txtDriveInfo.Text &= "卷标名称：" & drive.VolumeLabel & ControlChars.CrLf
txtDriveInfo.Text &= "分区类型：" & getDriveType(drive.DriveType) & ControlChars.CrLf
txtDriveInfo.Text &= "分区大小：" & Math.Round(drive.TotalSize / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLf
txtDriveInfo.Text &= "剩余空间：" & Math.Round(drive.TotalFreeSpace / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLf
txtDriveInfo.Text &= "选择盘符：" & Math.Round(drive.AvailableFreeSpace / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLf
txtDriveInfo.Text &= "文件系统：" & drive.DriveFormat & ControlChars.CrLf
Else
txtDriveInfo.Text = ""
txtDriveInfo.Text &= "选择盘符：" & drive.Name & ControlChars.CrLf
txtDriveInfo.Text &= "不可用。"
End If
End Sub

Private Function getDriveType(ByVal drive_type As DriveType) As String
Select Case drive_type
Case DriveType.CDRom
Return "光驱"
Case DriveType.Fixed
Return "固定磁盘"
Case DriveType.Network
Return "网络设备"
Case DriveType.Removable
Return "可移动盘"
Case Else
Return "其它"
End Select
End Function

getDriveType方法是用来获得分区类型的。
运行时如下：



学习更多vb.net知识，请参看  vb.net 教程 目录