Get Total and Free Disk Space

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility: Visual Basic.NET

More information:

Uses PInvoke (Platform Invocation) to call the the GetDiskFreeSpaceEx API function to get free and total space, in megabytes, on the given drive.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function GetDiskFreeSpaceEx _ Lib "kernel32" _ Alias "GetDiskFreeSpaceExA" _ (ByVal lpDirectoryName As String, _ ByRef lpFreeBytesAvailableToCaller As Long, _ ByRef lpTotalNumberOfBytes As Long, _ ByRef lpTotalNumberOfFreeBytes As Long) As Long

Code:

Public Function GetFreeSpace(ByVal Drive As String) As Long
   'returns free space in MB, formatted to two decimal places
   'e.g., msgbox("Free Space on C: "& GetFreeSpace("C:\") & "MB")
    
        Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long

Dim iAns As Long

iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _
             lBytesTotal, lFreeBytes)
        If ians > 0 Then

Return BytesToMegabytes(lFreeBytes)
        Else
            Throw New Exception("Invalid or unreadable drive") 
        End If

End Function

Public Function GetTotalSpace(ByVal Drive As String) As String
  'returns total space in MB, formatted to two decimal places
  'e.g., msgbox("Free Space on C: "& GetTotalSpace("C:\") & "MB")

Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long

Dim iAns As Long

iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _
             lBytesTotal, lFreeBytes)
        If iAns > 0 Then

Return BytesToMegabytes(lBytesTotal)
        Else
      Throw New Exception("Invalid or unreadable drive")         
End If
    End Function

Private Function BytesToMegabytes(ByVal Bytes As Long) _
    As Long

Dim dblAns As Double
        dblAns = (Bytes / 1024) / 1024
        BytesToMegabytes = Format(dblAns, "###,###,##0.00")

End Function