This example returns the amount of available space in bytes , in this case from the D:\ drive (if you have a D:\) drive . This example actually has a practical usage as you can use this to see how much space you have left on a server . Useful when you only get a small amount of space.

<%
Dim objFSO , objDrive
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("D:")
Response.Write "Drive " & objDrive & " has " & objDrive.AvailableSpace & " free space "
Set objFSO = Nothing
Set objDrive = Nothing
%>