Gennemløb af filer i foldere .LookIn-henvisningen forsvinder

Hej alle Eksperter

Jeg sidder og roder med noget kode i et Excelark.  Jeg ønsker at hente information fra ca. 700 regneark, som er fordelt på forskellige undermapper. I øjeblikket er jeg kun nået til gennemløbet af mapperne - og det virker ikke helt efter hensigten. Jeg har følgende kode:

'Find navnene på foldere i 2-Folder - og gennemgå dem en efter en
Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("M:\Tegninger\2-Folder")
    Set fc = f.SubFolders
   
'med den fundne folder - find filer, som ender på .xls
    For Each f1 In fc

        Set fsch = Application.FileSearch
        With fsch
            .LookIn = "M:\Tegninger\2-Folder\" & f1.Name & "\Godkendt"
            .SearchSubFolders = True
            .Filename = "*.xls"
            .Execute
           
            If .FoundFiles.Count > 0 Then
                MsgBox "There were " & .FoundFiles.Count & " file(s) found in " & f1.Name & "."
' for hver fil fundet.......
                For i = 1 To .FoundFiles.Count
                    strFil = .FoundFiles(i)
                    strBogst = Left(Right(.FoundFiles(i), 5), 1)
                    intNr = Right(Val(Right(.FoundFiles(i), 9)), 4)
                   
                    MsgBox strFil & " / " & strBogst & " / " & intNr
                                   
                Next i
            Else
                MsgBox "There were no files found."
            End If
        End With
Next


Det virker upåklageligt med de første 2 mapper, men når der søges i den tredie mappe så finder den pludselig samtlige .xls filer på hele min PC'er  - og ikke den fil, som ligger i mappen.

Kan nogen hjælpe mig ??  Jeg har ingen anelse om, hvad der går galt!  Jeg arbejder forresten i Excel2000 og Windows 2000 Prof.

Mvh Lisette