<%
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
%>
|
|
