Simplest way to get Disk Freespace in VBS

[BobSakemano]

hey guys,

whats the easiest and most simple way to get the disk freespace of a certian partition in VBS?

I'm now using WMI but thats too much code for something this simple, I thought maybe there is a better way.

thanks

 

[PHV]

Take a look at the AvailableSpace property of the Drive object exposed by FileSystemObject.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[pickletech]

Here is what I use.

strComputer = "."
Dim strDiskInfo
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisk = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
For Each objDisk In colDisk
	IF objDisk.Size <> 0 Then
		strDiskInfo = "Drive Letter: " & objDisk.Caption & Chr(10) & _
			"Size: " & Round(objDisk.Size/1073741824,2) & Chr(10) & _
			"Free Space: " & Round(objDisk.FreeSpace/1073741824,2) & Chr(10) & _
			"% Free: " & FormatPercent(objDisk.FreeSpace/objDisk.Size,2) & Chr(10)
	Else
		strDiskInfo = "Drive Letter: " & objDisk.Caption & Chr(10) & _
		"Disk Not Present"
	End If
	WScript.Echo strDiskInfo
Next

I know you said you didn't want to use WMI, but if it ain't broke, why fix it?

 

[BobSakemano]

I had a look around the web and like PHV said, AvailableSpace of de fsobject is the easiest! thanks guys!