|
| |
<% @EnableSessionState = False %>
<%
Response.Buffer = True
On Error Resume Next
'Set some variables
CurrentPath = Request("Path")
If CurrentPath = "" Then CurrentPath = "C:\"
'Create File Scripting Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Get current directory
Set oFolder = oFSO.GetFolder(CurrentPath)
'Get current files
Set oFolderFiles = oFolder.Files
'Subprocedure For error checking
Sub ErrorCheck
Response.Write "<TR>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Number
Response.Write "</B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Source
Response.Write "</B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Description
Response.Write "</B></FONT></TD>"
Response.Write "<TD colspan=2><FONT Face=Arial SIZE=2> </FONT></TD>"
Response.Write "</TR>"
End Sub
'Subprocedure For checking root directory
Sub CheckRoot
If Not oFolder.IsRootFolder Then
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings>Å</font></TD>"
Response.Write "<TD width='100%' align=left colspan=4><FONT Face=Arial SIZE=2 Color=Blue><B><A HREF='"
Response.Write Request.ServerVariables("SCRIPT_NAME")
Response.Write "?Path="
Response.Write Replace(oFolder.ParentFolder.Path," ","+")
Response.Write "'>..</A></B></FONT></TD>"
Response.Write "</TR>"
End If
End Sub
'Subprocedure For Drives DropDown
Sub DrivesDD
Response.Write "<b>Drives </b>"
Response.Write "<select name=Path>"
For Each oDrive In oFSO.Drives
If oDrive.DriveLetter <> "A" Then
If ODrive.IsReady Then
If Left(CurrentPath, 1) = oDrive.DriveLetter Then
DSystem = oDrive.FileSystem
Response.Write "<option value='"
Response.Write oDrive.DriveLetter
Response.Write ":\' selected>"
Response.Write oDrive.DriveLetter
Response.Write ":</option>"
Else
Response.Write "<option value='"
Response.Write oDrive.DriveLetter
Response.Write ":\'>"
Response.Write oDrive.DriveLetter
Response.Write ":</option>"
End If
End If
End If
Next
Response.Write "</select> "
Response.Write "<input type=submit name=submit value=Go>"
Response.Write "<br>"
Response.Write "<b>File System: </b>"
Response.Write Dsystem
End Sub
'Subprocedure For Folders
Sub Folders
If err > 0 Then
Call ErrorCheck
Else
For Each oSubFolder In oFolder.SubFolders
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings>0</font></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B><A HREF='"
Response.Write Request.ServerVariables("SCRIPT_NAME")
Response.Write "?Path="
Response.Write Replace(oSubFolder.Path," ","+")
Response.Write "'>"
Response.Write oSubFolder.Name
Response.Write "</A></B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>File Folder</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2> </FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oSubFolder.DateLastModified
Response.Write "</FONT></TD>"
Response.Write "</TR>"
Next
End If
End Sub
'Subprocedure For Files
Sub Files
If err > 0 Then
Call ErrorCheck
Else
For Each oFile In oFolder.Files
size = oFile.Size/1024
If size > 1024 Then size = size/1024
If oFile.Size/1024 > 1024 Then
sizetype = "mb"
Else
sizetype = "kb"
End If
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings size=4>3</font></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oFile.Name
Response.Write "</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2 >"
Response.Write oFile.Type
Response.Write "</FONT></TD>"
Response.Write "<TD align=right><FONT Face=Arial SIZE=2>"
Response.Write FormatNumber(size, 1, 0)
Response.Write " "
Response.Write sizetype
Response.Write "</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oFile.DateLastModified
Response.Write "</FONT></TD>"
Response.Write "</TR>"
Next
End If
End Sub
'Clean Up objects
Sub CloseKill
Set oFolderFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
End Sub
%>
<html>
<head>
<title>Directory Walker</title>
</head>
<body bgcolor=#FFFFFF>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="Post">
<CENTER>
<TABLE width="100%" cellpadding=3 cellspacing=0 border=0>
<TR>
<TD width="100%"><Font Face=Arial SIZE=2><B>Current Path: <%= CurrentPath %></B></FONT></TD>
<TD align=right><Font Face=Arial SIZE=2><% Call DrivesDD %></FONT></TD>
</TR>
<TR>
<TD valign=top colspan=2>
<TABLE width='100%' cellpadding=4 cellspacing=0 Border=1 BorderColor=Black>
<TR BGColor=D3D3D3>
<TD nowrap colspan=2><Font Face=Arial SIZE=2><b>Name</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>Type</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>File Size</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>Last Modified</b></font></TD>
</TR>
<%
Call CheckRoot
Call Folders
Call Files
Call CloseKill
%>
</TABLE>
</TD>
</TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>
|
|
 |
|
|
|
|
