for lykke i en for lykke i en forlykke

ja lige lidt hjælp til en nybegynder
jeg er igang med at lave et script der sletter nogle filer og mapper og så har jeg laven 2 arrays en til mapperne som ikke må slettes og en til filerne som ikke må slettes. men den brokker sig over min for lykke., er der en der kan lure den ?

den kan ikke finde ud af den for lyke
For Each item In Filer
hvorfor ?


Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("c:\TEMP1")

Sub ShowSubFolders(Folder)

Mapper=Array("mappe SLET ikke","mappe slet ikke 2")
Filer=Array("mappe SLET ikke","mappe slet ikke 2")
'Filer=Array("slettes ikke.txt", "slettes heller ikke.txt")

    For Each Subfolder in Folder.SubFolders

    For Each item In Mapper
        if item = Subfolder.name then
            msgbox Subfolder.name
        else


          Set folder = fso.GetFolder(Subfolder.Path)
          Set fileCollection = folder.Files
          For Each file In fileCollection 
            For Each item In Filer
                ' if filer = file then
            '    msgbox file
            '  end if
            next
          Next
        end if
 
    Next

    Next
End Sub