Lav links ud af en mappes indhold!

<%

Dim objFSO, objFolder, strPath, objFile

strPath = Server.MapPath("./files/maps/cs")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)

For Each objFile In objFolder.Files

    Response.Write("<a href=""/files/maps/cs/" & objFile.Name & """>" & objFile.Name & "</a> (" & FormatNumber(objFile.Size/1024, 2) & " KB)<br>")
   
Next

%>

Doh! Glemte extension.  :o)

Sæt følgende uden om linjen med Response.Write:

If LCase(Right(objFile.Name, 3)) = "zip" Then

...

End If

fandme i orden i først huk! nice værsgo ny pointne :)

ny=nyd

Det vil jeg gøre.  :o)