ROBOT.LK

Code: Select all

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Public Function GetFreeSpace(ByVal Drive As String) As Currency
        
    Dim BytesFreeToCalller As Currency
    Dim TotalBytes As Currency
    Dim TotalFreeBytes As Currency
        
    If Right(Drive, 1) <> "\" Then Drive = Drive & "\"
    GetDiskFreeSpaceEx Drive, BytesFreeToCalller, TotalBytes, TotalFreeBytes
    
    GetFreeSpace = TotalFreeBytes * 10000
    
End Function