<%
Session.LCID=3081
pt=request.ServerVariables("PATH_TRANSLATED")
sf1=request("sf1")
sf2=request("sf2")
sf3=request("sf3")
response.write ""
' | File Name | File Size + Date | "
Set fil = Server.CreateObject("Scripting.FileSystemObject")
'On Error Resume Next
' find out how many chars to chop off the string:
set curfil=fil.GetFile(pt)
pt=left(pt, len(pt)-len(curfil.name))
set curfil=nothing
ptadd=""
urladd=""
if sf1>"" then
ptadd=sf1 & "\"
urladd=sf1 & "/"
end if
if sf2>"" then
ptadd=ptadd & sf2 & "\"
urladd=urladd & sf2 & "/"
end if
if sf3>"" then
ptadd=ptadd & sf3 & "\"
urladd=urladd & sf3 & "/"
end if
' response.write "Current folder: " & pt & ptadd & "
"
Set subfol = fil.GetFolder(pt & ptadd)
If err=0 Then
set colsubfol=subfol.SubFolders
for each objsubf in colsubfol
subfname=objsubf.name
response.write "| Folder: " & subfname & " | "
next
set fc=subfol.Files
for each fl in fc
fls=(fl.size+512)\1024
if fls>700 then
flstr=cstr(int(fls/1024*100)/100) & "MB"
else
flstr=cstr(fls) & "kb"
end if
fldate=cstr(fl.DateLastModified)
fext=right(fl.name,4)
if fext<> ".asp" and fext<> ".bak" and fext<>".lnk" and fext<>"s.db" then
response.write "| " & fl.name & " "
response.write " | " & flstr & " - " & fldate & " | "
end if
next
end if
err.clear
set fc=nothing
set subfol=nothing
set fil=nothing
response.write " "
'response.write "-= Back =-"
%>
|
