<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Dim fs, d
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("d:\")
Response.Write("Free Space on " & d & " in bytes: " & d.FreeSpace)
set d=nothing
set fs=nothing
%>