Available Drive Space / Used Space

[Rick Rothstein]

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

I do not have access to a network, so I cannot test this code out, but I think it should work with that type of folder reference (you will have to try it out and let me know)...

Function FolderSize(FolderPath As String) As Variant
  Dim FS As Object, Folder As Object
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Folder = FS.GetFolder(FolderPath & IIf(Right(FolderPath, 1) = "\", "", "\"))
  FolderSize = Folder.Size
End Function