Vis kun mapper i samme niveau

Sådan her:
Du nå selv lige rette stien (rottFolder) til lige nu er den /xxx/yyy så den viser alle subfoldere i folderen /xxx/yyy


Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(Server.MapPath("/xxx/yyy"))
Set subFolders = rootFolder.SubFolders

For Each folder in subFolders
  Response.Write "FolderName: " & folder.Name & "<br>"

Next

Det ser rigtig godt ud !!!

Måske du kan hjælpe mig lidt på vej med en finpudse det lidt (hæver points) . Hvis nu jeg vil sortere f.eks. mapper efter navn, så skal man indlæse navnene i et array og så sortere. Hvordan gør man det ?

Der er to måder at gøre det på enten lave et recordset som man så sortere eller lave et array som du beskeiver:

Recordsert eks:
http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp?orderBy=ASC&sortBy=Name

Array sort:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

I en mere simpel udgave med RS.:


Set rs = Server.CreateObject("ADODB.Recordset")
rs.Fields.Append "navn", adVarChar, 200

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(Server.MapPath("/xxx/yyy"))
Set subFolders = rootFolder.SubFolders

For Each folder in subFolders
  rs.AddNew
  rs("navn") = folder.Name
  rs.Update
Next
rs.Sort = "navn ASC"
rs.MoveFirst
do while not rs.EOF
  Response.Write rs("navn") & "<br>"
  rs.Movenext
loop

eagleeye - tak for din hurtige og præcise hjælp. Det er ikke første gang at dine forslag har hjulpet mig :-)