re: How Can I Determine the Percentage of Free Space on a Drive?

Jordi Nin Gallego — Wed, 02 Jun 2010 09:10:47 GMT

Hello, it's too late to write answer, but there's a direct solution:

If objWMIService Then

Set colDiskDrives = objWMIService.ExecQuery _

("Select * from Win32_PerfFormattedData_PerfDisk_LogicalDisk Where " _

& "Name <> '_Total'")

For Each objDiskDrive In colDiskDrives

' oFile.WriteLine "Drive " & objDiskDrive.Name & " on " & strComputer & " has " & objDiskDrive.FreeMegabytes & " MB (" & objDiskDrive.PercentFreeSpace & "%) Free"

oFile.WriteLine "Drive;" & objDiskDrive.Name & ";" & objDiskDrive.FreeMegabytes/1024 & ";MB;" & objDiskDrive.PercentFreeSpace & "%"

Else

oFile.WriteLine "Could not connect to " & strComputer

oFile.WriteLine "objWMIService; #" & objWMIService & "#"

End If

I expect that this code can solve a lot of problems

Thansks!