diverfreebyte.bas

文件传送

Attribute VB_Name = "DiverFreebyte"
'此模块为得到磁盘空间信息及可用空间大小之用

Option Explicit




'这个API是用来取得磁盘的容量以及剩余可用空间信息的API函数
Declare Function GetDiskFreeSpaceEx Lib "KERNEL32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long



Public freebyte As Currency
Public allbyte As Currency
Public usebyte As Currency


Function getfreebyte(drivename As String) As Currency

GetDiskFreeSpaceEx drivename, freebyte, allbyte, usebyte

getfreebyte = freebyte * 10000

End Function


'取得全部空间
Function getallbyte(drivename As String) As Currency

Dim a As Variant

GetDiskFreeSpaceEx drivename, freebyte, allbyte, usebyte



getallbyte = allbyte * 10000

End Function


'取得可用的剩余空间
Function getcanusebyte(drivename As String) As Currency

Dim a As Variant

GetDiskFreeSpaceEx drivename, freebyte, allbyte, usebyte

getcanusebyte = usebyte * 10000


End Function