chma Skrevet 7. desember 2003 Del Skrevet 7. desember 2003 Gjort det litt enklere enn det jeg skal bruke det til, men prinsippet blir det samme. Det som kommer ut av koden under er /images/uploads/gallery/[mappenavn som leses]/small/. Det jeg ønsker er at etter /small/ så skal og første fil i mappen komme opp. Noen som har noen gode råd å komme med har prøvd meg en del fram man har ikke peil på FileSystemObject, så trenger VELDIG hjelp . <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim rootFolder Set rootFolder = fso.GetFolder(Server.MapPath("/images/uploads/gallery/")) Dim subFolders Set subFolders = rootFolder.SubFolders %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Bilde</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% For Each folder in subFolders %> <%="/images/uploads/gallery/"& folder.name &"/small/"%><BR> <%Next%> </body> </html> <% Set subFolders = Nothing Set rootFolder = Nothing %> Lenke til kommentar
dacourt Skrevet 21. desember 2003 Del Skrevet 21. desember 2003 Koden under lister ut navn på alle underkataloger og alle filer i disse katalogene på denne måten: /images/uploads/gallery/[KATALOGNAVN]/small/fil1.ext /images/uploads/gallery/[KATALOGNAVN]/small/fil2.ext /images/uploads/gallery/[KATALOGNAVN]/small/fil3.ext osv... Det koden ikke gjør er å liste ut navnene på det filene som ligger i katalogen du starter i (/images/uploads/gallery/). <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim fso, rootFolder, subFolders, folder, fileList Set fso = Server.CreateObject("Scripting.FileSystemObject") Set rootFolder = fso.GetFolder(Server.MapPath("/images/uploads/gallery/")) Set subFolders = rootFolder.SubFolders %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Bilde</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% For Each folder in subFolders Set fileList = folder.files For Each file in fileList Response.write "/images/uploads/gallery/"& folder.name &"/small/"&file.name&"<br>" Next Next %> </body> </html> <% Set subFolders = Nothing Set rootFolder = Nothing %> Håper dette hjalp deg dersom du fremdeles står litt fast :-) dacourt Lenke til kommentar
Anbefalte innlegg
Opprett en konto eller logg inn for å kommentere
Du må være et medlem for å kunne skrive en kommentar
Opprett konto
Det er enkelt å melde seg inn for å starte en ny konto!
Start en kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå