properties disk space

[matrixindicator]

Is it possible to get some properties of disk space of your local drive along VBA ?

1. how to get the number of total diskspace.
2. how to get the used diskspace.
3. how to get the available diskspace.

 

[Remou]

You can use the FileSystemObject:

Sub DiskDetails()
'The reference for the FileSystemObject Object is Windows Script Host Object Model
'but it not necessary to add the reference for this procedure.

Dim fs As Object
Dim d As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive("C")

'Use FormatNumber(d.<property> / 1024, 0) for KB
Debug.Print d.AvailableSpace
Debug.Print d.FreeSpace
Debug.Print d.TotalSize

End Sub