Anjaneyareddy
New Member
Could you please help me team
How can i calculate the C Drive FreeSpace
Thanks in advance
How can i calculate the C Drive FreeSpace
Thanks in advance
Dim Drv As Object
Dim fs As Object
Dim Letter As String
fs = CreateObject("Scripting.FileSystemObject")
Drv = fs.GetDrive(fs.GetDriveName("C:\"))
Letter = Drv.DriveLetter
TotalSpace = Drv.TotalSize
FreeSpace = Drv.FreeSpace
'Convert in GB:
'1073741824 B = 1 GB
'Fix returns the integer portion of a number
TotalSpace = Fix(TotalSpace / 1073741824)
FreeSpace = Fix(FreeSpace / 1073741824)