VBA code to get system free space

Submitted by Support on Sun, 02/22/2009 - 12:03

How to get the free space available using VBA

The FreeDiskSpace property can be used to retrieve the free space information from Word VBA

Sub FreeDiskSpace_Current_Drive()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Dim sFreeSpace As String

sFreeSpace = System.FreeDiskSpace

sFreeSpace = Format(sFreeSpace, "0,000")

MsgBox "Free Space Available is " & sFreeSpace

End Sub