用FSO(文件系统对象模型)实现获取磁盘空间代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】用FSO(文件系统对象模型)实现获取磁盘空间

作者:scottckt/ / 发布于2010/12/30/ 1368

获取磁盘空间FSO对象模型包含在scriptING类型库(SCRRUN.DLL)中。调用方法如下：

在项目菜单中选择引用，在COM中选择Microsoft scripting Runtime

<div>Imports scripting 

Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click 

Dim Fso As New FileSystemObject 

Dim drvDisk As Drive, strResult As String 

drvDisk = Fso.GetDrive("C:\") 

strResult = "Drive " & "C:\" & vbCrLf 

strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf 

strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf 

strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf 

strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf 

strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf 

strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf 

strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True) 

MsgBox(strResult) 

End Sub 

<strong>3、用API函数GetVolumeInformation获取逻辑盘序列号</strong>

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _ 

(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _ 

nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, _ 

ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal _ 

lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

Dim SerialNumber As Long 

Dim TempStr1 As New String(Chr(0), 255) 

Dim TempStr2 As New String(Chr(0), 255) 

Dim TempInt1, TempInt2 As Integer 

GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256) 

MsgBox("C盘序列号:" & SerialNumber) 

End Sub 

</div>

试试其它关键字

同语言下

可能有用的

scottckt/贡献的其它代码(3)