Generere meny utifra filer

Du må kunne bruge Server.CreateObject(\"FilesystemObject\").

Netop mape

Du skal lægge dine html filer i en folder, f.eks. C:\\inetpub\\wwwroot\\beretninger\\
og så laver du noget i stil med:

Function lavMenu(folder)
Dim fso, fldr, fc, f, s
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set fldr = fso.GetFolder(folder)
Set fc = fldr.Files
s = \"<b>Min menu:</b><br>\"
For Each f In fc
  s = s & \"<a href=\'\"
  s = s & fldr.Name & \"/\"
  s = s & f.Name
  s = s & \"\'>\"
  s = s & f.Name
  s = s & \"</a><br>\"
Next
lavMenu = s
End Function

Response.Write lavMenu(\"C:\\inetpub\\wwwroot\\beretninger\")

Jeg kom frem til noe lignende utifra Mape sitt svar. Det eneste problemet er at jeg har måtte bruke en fast path (samme som du gjør med c:\\inetppub.....) Klarer ikke å få den til å virke med URL eller virtual. Noen forslag?

I øvrig, takk for all god hjelp

Det er sgu da smart lavet .....

Du kan godt gøre det ud fra en virtuel sti. Hvis du ved hvor de ligger i forhold til roden af dit site.
Eks.

\'vituel path
path = \"/beretninger\"
fullpath = Server.MapPath( path )
Response.Write lavMenu( fullpath )

det blev det sgu ikke ringere af....

mvh martens