版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

.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.LoadFor Each drive As DriveInfo In DriveInfo.GetDrivescbDriver.Items.Add(drive.Name)NextEnd Sub

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

    Private Sub cbDriver_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbDriver.SelectedIndexChangedDim drive As DriveInfodrive = New DriveInfo(cbDriver.Text)txtDriveInfo.Text = ""If drive.IsReady ThentxtDriveInfo.Text = ""txtDriveInfo.Text &= "选择盘符：" & drive.Name & ControlChars.CrLftxtDriveInfo.Text &= "卷标名称：" & drive.VolumeLabel & ControlChars.CrLftxtDriveInfo.Text &= "分区类型：" & getDriveType(drive.DriveType) & ControlChars.CrLftxtDriveInfo.Text &= "分区大小：" & Math.Round(drive.TotalSize / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLftxtDriveInfo.Text &= "剩余空间：" & Math.Round(drive.TotalFreeSpace / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLftxtDriveInfo.Text &= "选择盘符：" & Math.Round(drive.AvailableFreeSpace / 1024 / 1024 / 1024, 2, MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLftxtDriveInfo.Text &= "文件系统：" & drive.DriveFormat & ControlChars.CrLfElsetxtDriveInfo.Text = ""txtDriveInfo.Text &= "选择盘符：" & drive.Name & ControlChars.CrLftxtDriveInfo.Text &= "不可用。"End IfEnd SubPrivate Function getDriveType(ByVal drive_type As DriveType) As StringSelect Case drive_typeCase DriveType.CDRomReturn "光驱"Case DriveType.FixedReturn "固定磁盘"Case DriveType.NetworkReturn "网络设备"Case DriveType.RemovableReturn "可移动盘"Case ElseReturn "其它"End SelectEnd Function

getDriveType方法是用来获得分区类型的。

运行时如下：

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