Binaryworld - How to Calculate the Amount of Free Disk Space Available... ... [ VB -> Files & Folder ]

API Declarations

'API Declarations
Private Declare Function GetDiskFreeSpace Lib "kernel32.dll" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Module

Click here to copy the following block

'Call this function to get the Amount of Free Disk Space (in Bytes)
'Pass to this function only the letter of the drive
Function FreeDiskSpace(DriveLetter As String)
  Dim SectorsPerCluster As Long
  Dim BytesPerSector As Long
  Dim FreeClusters As Long
  Dim NumberOfClusters As Long
  Dim ret As Long

  ret = GetDiskFreeSpace(DriveLetter & ":\", SectorsPerCluster, BytesPerSector, FreeClusters, NumberOfClusters)
  FreeDiskSpace = BytesPerSector * SectorsPerCluster * FreeClusters
End Function

Usage

Click here to copy the following block

'Simple use of the function
Private Sub Command1_Click()
MsgBox FreeDiskSpace("C") \ 1024 & " Kb Free Space in Drive C"
End Sub