<%@ Language="VBScript"%>
<%
'//////////////////////////////////////////////////////////////////////////
'// Disk Usage
'//
'// Purpose: Calculates the used bytes in a directory and its files and subdirectories.
'//
'// Version: 1.0 (27. April 2005)
'//
'// Copyright (c) 2005 by SmartFTP
Dim sFolder
sFolder = Request.QueryString("dir")
sFolder = Trim(sFolder)
Dim sVirtualFolder
If Len(sFolder) = 0 Then
sVirtualFolder = Request.ServerVariables("SCRIPT_NAME")
' Remove filename from path
Dim nPos
nPos = InStrRev(sVirtualFolder, "/")
If nPos <> 0 Then
sVirtualFolder = Left(sVirtualFolder, nPos)
End If
sFolder = Server.MapPath(sVirtualFolder)
End If
%>
Disk Usage of <%=sFolder %>