How to get free space of a disk

Visual Basic Topics
Post Reply
Cyclops
Lieutenant
Lieutenant
Posts: 71
Joined: Wed Jul 15, 2009 1:48 pm
Location: London

How to get free space of a disk

Post by Cyclops » Fri Oct 30, 2009 11:47 am

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

Post Reply

Return to “Visual Basic Programming”