Bagaimana Memperoleh Nilai “Free Space” Dari Sebuah Disk?

Meskipun sebetulnya tidak cukup sulit untuk menampilkan properti dari sebuah objek (file, folder, dll), tapi terkadang kita hanya butuh memperoleh nilai “free space” yang nantinya akan diolah lebih lanjut.

API tetap menjadi andalan utama untuk mengakses sistem, berikut source codenya:

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

Image source: tivocommunity.com