<% @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 "" Response.Write "" Response.Write Err.Number Response.Write "" Response.Write "" Response.Write Err.Source Response.Write "" Response.Write "" Response.Write Err.Description Response.Write "" Response.Write " " Response.Write "" End Sub 'Subprocedure For checking root directory Sub CheckRoot If Not oFolder.IsRootFolder Then Response.Write "" Response.Write "Å" Response.Write ".." Response.Write "" End If End Sub 'Subprocedure For Drives DropDown Sub DrivesDD Response.Write "Drives " Response.Write "" 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 "" Response.Write oDrive.DriveLetter Response.Write ":" Else Response.Write "" Response.Write oDrive.DriveLetter Response.Write ":" End If End If End If Next Response.Write " " Response.Write "" Response.Write "
" Response.Write "File System: " 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 "" Response.Write "0" Response.Write "" Response.Write oSubFolder.Name Response.Write "" Response.Write "File Folder" Response.Write " " Response.Write "" Response.Write oSubFolder.DateLastModified Response.Write "" Response.Write "" 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 "" Response.Write "3" Response.Write "" Response.Write oFile.Name Response.Write "" Response.Write "" Response.Write oFile.Type Response.Write "" Response.Write "" Response.Write FormatNumber(size, 1, 0) Response.Write " " Response.Write sizetype Response.Write "" Response.Write "" Response.Write oFile.DateLastModified Response.Write "" Response.Write "" Next End If End Sub 'Clean Up objects Sub CloseKill Set oFolderFiles = Nothing Set oFolder = Nothing Set oFSO = Nothing End Sub %>

" METHOD="Post">

Current Path: <%= CurrentPath %>	<% Call DrivesDD %>
<% Call CheckRoot Call Folders Call Files Call CloseKill %> Name Type File Size Last Modified