Rekursivt gennemløb af træstruktur

Du har en meget fin rutine til dette indbygget i Excel

Nedenstående er taget ud af en sammenhæng, så måske skal der tilrettes.

  With Application.FileSearch
    .NewSearch
    .LookIn = strFolder
    .SearchSubFolders = True
    .Filename = strYear & "*" & conDatExt
    .MatchTextExactly = False
    .Execute
    If .FoundFiles.Count > 0 Then
      For lngFiles = 1 To .FoundFiles.Count
        Application.StatusBar = "Indlæser data årsopgørelse - læser fil nr. " & lngFiles & " af ialt " & .FoundFiles.Count
        Msgbox .FoundFiles(lngFiles)
      Next lngFiles
    Else
      MsgBox strMsg, vbInformation + vbOKOnly, "Ingen data fundet"
    End If
  End With

Arrayet .FoundFiles(lngFiles) indeholder hele navnet ( sti + navn )

Det der er helt helt fantastisk

1000 tak

SmoothJ

Hov jeg kan ikke give dig point før du laver et svar og ikke en kommentar

:o]

Jamen her er da så et svar :-)

Tak for point  - gad vide hvorfor jeg ikke har fået e-mail om dette

Til gengæld kan du så måske forælle mig hvorfor den giver mig alle matches og ikke kun eksakte ?

Filen jeg søger på hedder optal.csv, og den giver mig også optal 1.csv. Jeg har prøvet at ændre .MatchTextExactly = False til .MatchTextExactly = True, men det er den sådan set ret kølig over.

??

:o]

Det lyder lidt underligt - jeg må tilstå at jeg bruger den til at fil alle filer med en bestemt extension og der har jeg ikke oplevet dette

Har du husket at fjerne stjrnen her

.Filename = strYear & "*" & conDatExt

Ja prøv at tjekke det nye spørgsmål jeg har oprettet. Det er meget mystisk.

:o]