How to check harddisk space

[jack1234]

Hi, i wish to check the user C drive remaining spaces using vba, how to do this?

 

[MarkK]

Started writing a solution here, but ran into a strange problem. On my machine the last line in Sub FreeGigs() fails, which makes no sense. Curious if others can replicate this problem.
Apart from that Jack, here are a few ways to solve your problem...

Sub TestFreeGigs()
   FreeGigs "C"
End Sub

Sub FreeGigs(drivespec As String)
   Dim fsoEarly As New Scripting.FileSystemObject
   Dim fsoLate As Object
   Set fsoLate = CreateObject("Scripting.FileSystemObject")
   
   'works
   Debug.Print fsoEarly.Drives(drivespec).FreeSpace / 2 ^ 30
   Debug.Print fsoLate.Drives("C").FreeSpace / 2 ^ 30
   Debug.Print fsoLate.Drives(CStr(drivespec)).FreeSpace / 2 ^ 30
   'fails
   Debug.Print fsoLate.Drives(drivespec).FreeSpace / 2 ^ 30
   
End Sub

Mark

 

[Spyhunter]

did you ever get this working?

 

[namliam]

The given code works like a charm

 

[ghudson]

did you ever get this working?

You have to set a reference to the Microsoft Scripting Runtime. The last line also failed on my Windows XP computer but the first three gave the exact value correctly stating the amount of free space on my hard drive.

 

[dfenton]

The scripting runtime can be used with late binding, so no need for a reference at all. In the code given, you'd just comment out the variable declaration for fsoEarly.

 

[Steve R.]

Amazing! Hang around long enough and the question will be asked. I have been thinking of how to test for available space. In my case for a USB drive before moving data onto it. Thanks.