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

发布时间：2020-12-17 07:32:03 所属栏目：百科来源：网络整理

导读：.Net对文件的操作主要通过System.Io命名空间进行的，包括驱动器、文件夹、文件信息的获

.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,MidpointRounding.AwayFromZero) & "GB" & ControlChars.CrLf
            txtDriveInfo.Text &= "选择盘符：" & Math.Round(drive.AvailableFreeSpace / 1024 / 1024 / 1024,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 教程目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!