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()
Dim sFreeSpace As String
sFreeSpace = System.FreeDiskSpace
sFreeSpace = Format(sFreeSpace, "0,000")
MsgBox "Free Space Available is " & sFreeSpace
End Sub
Is there any code for if less then 1GB need to mark some color?
ReplyDelete