hotcakejobs.com

<HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=windows-1252"> <META name="GENERATOR" content="Microsoft FrontPage 4.0"> <META name="ProgId" content="FrontPage.Editor.Document"> <TITLE>New Page 1</TITLE> </HEAD> <BODY> <% 'Capture the name of the page as well as ' directory structure script_name=Request.ServerVariables("script_name") 'Split the directory tree into an arry b ' y / split_name=Split(script_name,"/") ' Sets the number of directory levels do ' wn num_directory=UBound(split_name)-1 %> <HTML> <TITLE>CodeAve.com(Directory Size)</TITLE> <BODY bgcolor="#FFFFFF"> <TABLE align="center"> <TR> <TD width=150> Directory </TD> <TD width=150> Megabytes </TD> <TD width=150> Kilobytes </TD> <TD width=150> Bytes </TD> </TR> <% ' Create a file system object to read al ' l the directories ' beneath the current directory split_na ' me(num_directory) ' You can hard code the directory name i ' f you like Set directory=Server.CreateObject("scripting.filesystemobject") Set allfiles=directory.getfolder(Server.MapPath("../"& split_name(num_directory)& "/")) ' Lists all the files found in the direc ' tory For Each directory In allFiles.subfolders ' Removes certain MSFrontPage was direct ' ories If Right(directory.Name,3) <> "cnf" Then 'Adds the folder sizes up for a total< ' ;BR> total_size=total_size + directory.size %> <TR> <TD width=150> <%= directory.name %> </TD> <TD width=150><%= FormatNumber((directory.size/1024/1024),2) %></TD> <TD width=150><%= FormatNumber((directory.size/1024),0) %></TD> <TD width=150><%= FormatNumber(directory.size,0) %></TD> </TR> <% End If 'end check For FrontPage directories Next 'end of the For next Loop %> <TR> <TD width=150>Total</TD> <TD width=150><%= FormatNumber((total_size/1024/1024),2) %></TD> <TD width=150><%= FormatNumber((total_size/1024),0) %></TD> <TD width=150><%= FormatNumber(total_size,0) %></TD> </TR> </TABLE> </BODY> </HTML> </BODY> </HTML>