Does anyone have any code for checking a disks free and used space? I have been unsuccessful whilst looking through my outdated win32api.txt file. Does anyone have a recent copy of this file? Thanks in advance!

-kwandobe

http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B225144

Swi

Option Explicit

Dim Status As Long
Dim TotalBytes As Currency
Dim FreeBytes As Currency
Dim BytesAvailableToCaller As Currency
Dim DiskSize As String
Dim DiskSpace As String

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

Private Sub Form_Load()

Status = GetDiskFreeSpaceEx("C:", BytesAvailableToCaller, TotalBytes, FreeBytes)
If Status = 0 Then
    DiskSize = "Unknown"
    DiskSpace = "Unknown"
Else
    DiskSize = Format(TotalBytes * 10000, "#,##0") & " Bytes"
    DiskSpace = Format(FreeBytes * 10000, "#,##0") & " Bytes"
End If

MsgBox "HardDrive size = " & Disksize

MsgBox "Free DiskSpace = " & DiskSpace

End Sub

Keith