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

 

.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 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/74906759