Dette script henter alle filer i en folder

<%
dim objFSO, objF, objFC 
dim f1, w, h, c, strType

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder("C:\inetpub\wwwroot\")
Set objFC = objF.Files

response.write "<table border=""1"" cellpadding=""5"">"

For Each f1 in objFC
    response.write "<tr><td>" & f1.name & "</td><td>" &  f1.DateCreated & "</td><td>" & f1.Size & "</td><td>"
    response.write "</tr>"
Next

response.write "</table>"

set objFC = nothing
set objF = nothing
set objFSO = nothing
%>


Ved at ændre for løkken til:
For Each f1 in objFC
    response.write "<tr><td>" & f1.name & "</td><td>" &  f1.DateCreated & "</td><td>" & f1.Size & "</td><td>"
    response.write "</tr>"
    exit for ' afbryd for next løkken
Next


Får du kun det første filnavn.

//akj

dvs. jeg skal bruge "for each" for bare at få den første værdi? Man kan ikke referer til den første post i listen, som man kan i eks. et array (array(0))?

Det er den eneste måde jeg kan får det til at virke på...

smid lige et svar så du kan få point

Oki, brugte du exit for trikket ??

//akj

Jeg har re-designet det så jeg først ligger alle værdierne over i et array. Men tak alligevel