Quick Tips

Keeping an Eye on Free Disk Space

With the size and cost of hard drives these days this probably isn't as big a deal as it used to be, but there are still times when your server might fill up it's hard drive. This happened to me the other day and it caught me totally off guard. So I whipped up this little script to help me keep an eye on things.

<%
Dim objFSO
Dim objDrive
Set objFSO   = Server.CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("C:")
Response.Write "<pre>" & vbCrLf
Response.Write "Drive Letter: "
Response.Write objDrive.DriveLetter
Response.Write vbCrLf
Response.Write "Volume Name:  "
Response.Write objDrive.VolumeName
Response.Write vbCrLf
Response.Write "Free Space:   "
Response.Write FormatNumber(objDrive.FreeSpace, 0) & " bytes"
Response.Write vbCrLf
Response.Write "Total Size:   "
Response.Write FormatNumber(objDrive.TotalSize, 0) & " bytes"
Response.Write vbCrLf
Response.Write "Percent Free Space: "
Response.Write FormatPercent(objDrive.FreeSpace / objDrive.TotalSize)
Response.Write vbCrLf
Response.Write "</pre>" & vbCrLf
Set objDrive = Nothing
Set objFSO = Nothing
%>

For most sites storage isn't a big deal. Web files tend to be relatively small and storage isn't usually a problem, but if you're hosting somewhere with a storage limit or your site allows users to upload files you could be out of space before you know it... at least now you can easily check.