finde ud af hvor mange filer der ligger i en mappe

<%

dim filelist
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(Server.Mappath("\"))
set files = folder.Files

for each file in Files
    ' efterfølgende linie udskriver filnavnene
    'response.write file.name & "<br/>"
    filelist = filelist & "," & file.name
next

' fjern extra komma
filelist = right(filelist,len(filelist)-1)

myarr = split(filelist,",")

set files = folder.files
set file = nothing
set fso = nothing

response.write filelist

response.write "<br/>Ialt " & ubound(myarr) & " filnavne i array."
%>

Jeg takker

selvtak.