Søg efter fil i alle subfolders

noget i stil med det her:
http://www.mvps.org/vbnet/code/fileapi/filesearchinfo.htm

Faktisk vil jeg bare have læst alle *.txt filer på c:\ (og undermapper) smidt ind i en filelistbox

Pseudokode

Private sub FindFile(Pattern as String, ByVal StartFolder as String)
  If StartFolder Has SubFolders Then 
    For each SubFolder in StartFolder
      FindFile(Pattern, SubFolder) '< Rekursivt kald
    Next SubFolder
  Else
    For Each File in StartFolder
      If right(File.Name,4) = Pattern Then
        File1.Additem File.Name
      End If
    Next File
  End If
End Sub

Call FindFile ".txt", "C:\"

Er jeg ved at være der? Havde jeg VB6 lige her kunne jeg lige tjekke om det virker - der skal lige rettes lidt op, men med FSO må det være muligt...

sjh: Ja, det link du giver står jo også i det spørgsmål jeg har linket til - men jeg vil gerne undgå 3 km kode og API - jeg tænkte med en rekursiv funktion kunne det gøres så simpelt som jeg skitserer ovenfor.

Måske skulle jeg bare vente til jeg kommet til min egen PC med VB6 på (før skal jeg alligevel ikke bruge koden ;o), for jeg tror jeg er meget tæt på at have løsningen ovenfor

eller her:
http://www.mvps.org/vbnet/code/fileapi/recursivefolders_minimal_multipleselective.htm
http://www.mvps.org/vbnet/code/fileapi/recursivefiles_minimal_multipleselective.htm
http://www.mvps.org/vbnet/code/fileapi/recursivefiles_minimal_multiple.htm

okææ så skal du nok bruge det som martin_moth er kommet med :)

øøø martin_moth (Has) hvad er det???

--> If StartFolder Has SubFolders Then

martin_moth er mig selv :o) Jeg stiller bare et spørgsmål og besvarer det (næsten) selv. Lidt skitzo er vi vel alle

ja det ser jeg... jeg må vist se at komme ind og sove lide :D

okææ så må det her være noget for dig.. den teller godt nok antal byte sammen, men det kan du nok selv ændre :o)

http://www.vb-helper.com/howto_find_directory_and_subdirectories_size.html

Det jeg egentligt helst ville var at rette min pseudokode til så den fungerer...

Fx:

If StartFolder Has SubFolders Then

Hvordan tjekker man det

If Startfolder.Subfolders = Null eller?

Det kan vel ikke være noget så enkelt som det her du tænker på Martin :-)
Sub GetTextFiles()

Dim FS As FileSearch
Dim FilePath As String
Dim i As Integer
Dim filelist()
Const Filespec = "*.txt"  'udfyldes af bruger
FilePath = "C:\"          'udfyldes af bruger
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = Filespec
  .SearchSubFolders = True
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
  ReDim filelist(.FoundFiles.Count)
  For i = 1 To .FoundFiles.Count
    'filelist(i) = Split(.FoundFiles(i), Application.PathSeparator)
    filelist(i) = FoundFiles(i)
  Next
End With
End Sub

En anden måde det kunne gøre på.
Måtte rette din pseudo lidt til, for hvis der var en mappe med subfolders ville filerne i den mappe aldrig blive undersøgt.

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
FindFile pattern, fso.GetFolder(mappe)

Private Sub FindFile(pattern As String, folder As Scripting.folder)
Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      FindFile pattern, tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If InStr(1, tmpFile.Name, pattern) Then
        Debug.Print tmpFile.Path & "\" & tmpFile.Name
      End If
    Next
  End If
End Sub

den virker jo fint :) skal bare ikke have --> & "\" & tmpFile.Name med..

Debug.Print tmpFile.Path '& "\" & tmpFile.Name

sjh: Kendte ikke Set "FS = Application.FileSearch" - så er det jo nemt :o)

helmet: Jeg synes rekursive funktioner er seje - og du fik rettet mit eget forslag så det fungerer.

Jeg giver 30 til hver af jer hvis helmet smider et svar

Fair nok