CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

para7 Nybegynder

24. oktober 2008 - 16:05 Der er 5 kommentarer og
2 løsninger

Simpel listning af foldere med fso

Jeg har brugt fso til listning af filer mange gange, men hvordan hulen lister man så foldere. Har prøvet med sådan noget:

folderPath = "/minfolder/"
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = Server.Mappath(folderPath) 'Den fysiske placering af filen
Set objFolder = objFSO.getFolder(path) 'Fil objektet

For each folder in objFolder
response.Write folder.name & "<hr>"
next

Set objFSO = nothing

Synes godt om

para7 Nybegynder

24. oktober 2008 - 16:06 #1

'Fil objektet skal lige væk.....

Synes godt om

mitbrugernavn Praktikant

24. oktober 2008 - 18:55 #2

folderPath = "/minfolder/"
strPathInfo = Request.ServerVariables("SCRIPT_NAME")
strPhysicalPath = Server.MapPath(folderPath )

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objSubFolders = objFolder.SubFolders

for each folder in objFolder
response.write folder.Name & "<br>"
next

Synes godt om

keysersoze Guru

24. oktober 2008 - 22:34 #3

så skal du bare lige huske at rydde op i unødige ting fra dit eksempel - fx benytter du ikke din objSubFolders, og det er også tungere at lave både et objFile og et objFolder objekt fremfor bare at nøjes med et objFolder hvilket er tilstrækkeligt.

Se evt http://web-dev.dk/post/2008/10/FileSystemObject---FSO.aspx

Synes godt om

para7 Nybegynder

25. oktober 2008 - 10:07 #4

keysersoze, du leverede clean code med dit link til egne eksempler, send lige svar for point, så kan I dele.

Synes godt om

para7 Nybegynder

25. oktober 2008 - 10:08 #5

Det her virker fint. Har sat mappath på:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Definering af hvilken mappe vi vil kigge i
Set FOLDER = FSO.GetFolder(server.MapPath("."))
'udskriv mapper i mappen
For Each SUBFOLDER In FOLDER.SubFolders
Response.Write SubFolder.Name & "<br>"
Next
Set FOLDER = Nothing
Set FSO = Nothing
%>

Synes godt om

keysersoze Guru

25. oktober 2008 - 11:47 #6

svar :)

Synes godt om

para7 Nybegynder

25. oktober 2008 - 11:57 #7

keysersoze eksempelside er super at vende tilbage til. Tak for denne gang.

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS