12. december 2004 - 23:04Der er
7 kommentarer og 1 løsning
Lave kode om til funktion som udskriver uendelige antal undermapp
Hejsa
Jeg har lavet følgende stump kode der udskriver de mapper (2) der ligger i en given mappe (1) samt de filer der ligger i hver mapper (2). Men jeg vil gerne have hjælp til at få lavet det hele om til en funktion således at den også tager undermapper (3)med til mapperne (2) og undermapper (4) til disse undermapper (3) osv således at den kan vise undelige antal undermapper og billeder. Håber I forstår hvad jeg mener!
Her er min nuværende kode: ------------------------------------------------------- Sti = LCase(Request.ServerVariables("APPL_PHYSICAL_PATH")) & "Billeder" set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder(Sti) for each x in fo.SubFolders MappeNavn = Replace(x.Name, "'", "\'") MappeSti = Sti & "\" & MappeNavn & "\" DB_Kategori = ""
set fs2=Server.CreateObject("Scripting.FileSystemObject") set fo2=fs2.GetFolder(MappeSti) for each y in fo2.Files FilNavn = Replace(y.name, "'", "\'")
Response.write "<br>|" & MappeNavn & "/" & FilNavn & "|" next next set fo=nothing set fs=nothing -------------------------------------------------------
tænker du på noget ala <% sub showFolder(f,s) set fi = f.Files for each folder in f.Subfolders Response.Write s&folder.name&"<BR>" showFolder f,s&"*" next for each fil in fi Response.Write s&fil.name&"<BR>" next
end sub
startFolder="./" dim folder,folderCol Set objFSO = Server.CreateObject("Scripting.FileSystemObject") set folder = objFSO.getFolder(server.MapPath(startFolder)) showFolder folder,"" set folder = nothing set objFSO = nothing %>
Så når jeg udskriver en fil under "Under-undermappe 1" så skal jeg bruge følgende information: Komplet sti: Mappe 1\Undermappe 2\Under-undermappe 1\ Filnavn: fil.asd
<% Set fso = Server.CreateObject("Scripting.FileSystemObject") Function PrintTree(Path) Set fo = fso.GetFolder(Server.MapPath(Path)) For each x in fo.SubFolders path_arr = split(Request.QueryString("Folder")&"/////////","/") Response.write x.Name & "<br>" PrintTree Path & x.name & "/" next
for each y in fo.files Response.write path & y.name next End Function
<% Set fso = Server.CreateObject("Scripting.FileSystemObject") Function PrintTree(Path) Set fo = fso.GetFolder(Server.MapPath(Path)) For each x in fo.SubFolders Response.write Path & x.Name & "<br>" PrintTree Path & x.name & "/" next
for each y in fo.files Response.write path & y.name & "<br>" next End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
