<%
if request("folder") <> "" then
subpath = request("folder") & "/"
else
subpath = ""
end if
arrsubpath = Split(subpath, "/")
if Ubound(arrsubpath) > 0 then
less1 = Ubound(arrsubpath) - 2
prevpath = ""
for count = 0 to less1
prevpath = prevpath & arrsubpath(count) & "/"
next
ppnewlen = len(prevpath) - 1
if ppnewlen > 0 then
prevpath = left(prevpath, ppnewlen)
end if
else
prevpath = ""
end if
Set objfs = CreateObject("Scripting.FileSystemObject")
Set objfolder = objfs.GetFolder(Server.MapPath("doclibrary/main/" & subpath))
Set objSubfolders = objfolder.SubFolders
Set objfiles = objfolder.files
%>
|
|
<%
if request("folder") = "" then
response.Write("Main")
else
response.Write(request("folder"))
end if
%>
|
Go Up |
|
|
<%
if request("folder") = "" then%>
|
|
|
|
|
|
<%
end if%>
<%
foldercount = 0
For Each objSubfolder in objSubfolders
%>
|
|
<%
foldercount = foldercount + 1
Next
filecount = 0
For Each objfile in objfiles
%>
|
|
<%
filecount = filecount + 1
Next
if (foldercount = 0) AND (filecount = 0) then
%>
| There are currently
no files in this directory |
|
|
<%
end if
%>
|
|
|
