Hvorfor virker det her ikke

Har lidt problemmer med at gennemløbe et array.

mapper = "test,test1,test2"

filer = ""
For t = LBound(mapper) to UBound(mapper)

    Set folder = fso.GetFolder(folderspec & "/" & t)

    taeller = 0
    For Each File In folder
        taeller = taeller + 1
    next
   
    if taeller <> 0 then
        filer = taeller & " " & t & "<br>"
    end if
next

response.write filer