Available Drive Space / Used Space

[JimHol]

Rick,

Thanks for you help in the past with the code below, it has worked great for me. Is it possible to do something similar to also determine the amount of used space in a particular folder on the drive?

"\\networkdrive\thisproject"

PS. I removed the "Replace" statements from your code to make it functional for my network.

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

Function TotalBytes(ByVal DriveLetter As String) As Currency
  Dim BytesAvailableToCaller As Currency, FreeBytes As Currency
  GetDiskFreeSpaceEx DriveLetter, BytesAvailableToCaller, TotalBytes, FreeBytes
End Function

Function FreeBytes(ByVal DriveLetter As String) As Currency
  Dim BytesAvailableToCaller As Currency, TotalBytes As Currency
  GetDiskFreeSpaceEx DriveLetter, BytesAvailableToCaller, TotalBytes, FreeBytes
End Function