
	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB.NET 获取磁盘信息

作者：闵涛文章来源：闵涛的学习笔记点击数：2033 更新时间：2009/4/23 19:00:56

磁盘信息

实例说明

在本程序中，我们将生成一个能够得到当前磁盘信息的应用程序，跟右键点击磁盘“属性”得到的结果相似。运行后，选择磁盘后，可以得到当前磁盘的序列号、卷标、文件类型、已用空间、未用空间、磁盘容量等信息

技术要点

l 判断驱动器类型

l 取得磁盘的相关信息

l 取得磁盘的使用空间、总空间

实现过程

■ 新建项目

打开Visual Studio.NET，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“DiskInfo”，然后选择保存路径。单击“确认”。

■ 添加控件

向当前窗体上添加十六个Label控件，一个Picture控件，一个ComboBox控件，一个Line控件。

■ 设置属性

根据窗体的界面，将说明性的Label控件的Text属性改为和界面一致即可。在表96-1中列出了一些主要属性，其余属性读者可以参考光盘。

表96-1 窗体及控件的属性值

窗体/控件

属性

值

Label10

Text

BackColor

&H000000FF

Label11

Text

Value

&H00FF0000

其他Label控件

Autosize

True

Text

跟界面一致

■ 添加代码

下列代码是在模块中添加的

Option Strict Off

Module Module1

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer

Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer

Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, ByRef lpSectorsPerCluster As Integer, ByRef lpBytesPerSector As Integer, ByRef lpNumberOfFreeClusters As Integer, ByRef lpTotalNumberOfClusters As Integer) As Integer

End Module

下列代码是在窗体中添加的

Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged

Dim buff As String

Dim retSerial, retRoot, retVolume1, retFlag As String

Dim retFSNbuffer As String

Dim lpBytesPerSector, lppercluster, lpfree As Integer

Dim lptotal As Integer

Dim freespace As Long

Dim totalspace As Double

Dim usespace As Double

Dim startang As Single