<% Dim BaseFolder, OrgFolder FileString = replace(Request("file"),"|","\") OrgFolder = StripFileName(FileString) OnlyFile = replace(filestring,OrgFolder,"") 'If request("folder") ="files" then OrgFolderSpec = replace(RootLevel2,"|","\") 'else ' OrgFolderSpec = replace(Request("folder"),"|","\") 'End if PosOrgFolder = Instr(1,FileString,OrgFolderSpec) BaseFolder = mid(FileString,1,PosOrgFolder -1) & OrgFolderSpec %>

Move the file <%=OnlyFile%>

to the folder:
<%=FileString%>
<%=OnlyFile%>
<% GetSubFolders(BaseFolder)%>

<%Function GetSubFolders(byval folderspec) Dim fso, f, xf, m, n set fso = createobject("Scripting.FileSystemObject") set f = fso.getfolder(folderspec) If instr(1,ucase(folderspec),"HIDDEN")=0 and ucase(orgfolder) <> ucase(folderspec & "\") then Response.Write("" & Mid(folderspec,Len(BaseFolder) + 1,255) & "\" & "") End if set m=f.SubFolders For Each xf in m GetSubFolders(xf) ' recursive per folder Next end function Function StripFileName(strFile) StripFileName = Left(strFile, inStrRev(strFile, "\")) End Function %>