用API函数GetDiskFreeSpaceEx获取磁盘空间代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】用API函数GetDiskFreeSpaceEx获取磁盘空间

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

获取磁盘空间

<div>Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _ 

(ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _ 

ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long 

Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click 

Dim BytesFreeToCalller As Long, TotalBytes As Long 

Dim TotalFreeBytes As Long, TotalBytesUsed As Long 

Dim strResult As String 

Const RootPathName = "C:\" 

Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes) 

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

strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf 

strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf 

strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf 

MsgBox(strResult) 

End Sub 

</div>

试试其它关键字

同语言下

可能有用的

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