Documenten zoeken in submappen Excel 2007

[Karel 2]

Ik heb op dit forum een alternatief gevonden voor de functie FileSearch in Excel 2007(zie hier onder)
Is het ook mogelijk om (zoals dat mogelijk was bij FileSearch) ook in submappen te zoeken?

Sub GegevensOphalen()
  c1 = Dir("C:\*")
  Do Until c1 = ""
     lijst = lijst & vbCr & c1
    c1 = Dir
  Loop
  MsgBox ("De volgende bestanden zijn gevonden: " & vbCr & lijst)
End Sub

Alvast bedankt Karel

 

[snb]

Sub Submappen()
  c0 = "C:\"
  
  With CreateObject("scripting.filesystemobject").getfolder(c0)
    For Each fl In .subfolders
       lijst = lijst & vbCr & fl
    Next
  End With
  
  MsgBox "De volgende submappen zijn gevonden: " & vbCr & lijst
End Sub

 

[Karel 2]

Voor geïnteresseerden, hierbij de combinatie, een lijst met alle documenten in de hoofdmap en alle submappen daar in.
Met dank voor alle hulp!

Sub DocumentenInSubmappen()

Range("A:A").ClearContents

Dim Mappen As New Collection
Mappen.Add "T:\Inkoop\Leveranciers"

i = 0: ii = 0
Do
eind = True
i = i + 1
c0 = Mappen(i)
  With CreateObject("scripting.filesystemobject").getfolder(c0)
    For Each fl In .subfolders
    Mappen.Add fl
    c1 = Dir(fl & "\*")
    Do Until c1 = ""
        ii = ii + 1
        Cells(ii, 1) = fl & "\" & c1
        c1 = Dir
    Loop
    Next
  End With
Loop Until i = Mappen.Count
End Sub

 

[snb]

Vermijd overbodige schrijfakties in het werkblad.
Als je je vraag beter had gesteld:

Sub bestanden_en_submappen()
 c1=dir("T:\Inkoop\leveranciers",16)
 do until c2=""
   c2=c2 & "|" & c1
   c1=Dir
 loop
 cells(1,1).resize(ubound(split(c2,"|")))=worksheetfunction.transpose(split(c2,"|"))
End Sub

 

[Karel 2]

Sorry als ik niet duidelijk genoeg was, ik krijg je super compacte alternatief niet aan de praat dus weet ik nog niet of ik duidelijk genoeg ben.

Ik was op zoek naar een manier om alle documenten in een bestandsmap te doorzoeken, ook degene die zich in de daarbinnen gelegen submappen bevinden.

Dit was altijd mogelijk met de functie FileSearch, hierbij was er een optie doorzoek submappen, SearchSubFolders = True / False

Bij de macro die ik gevonden had was dit niet het geval en werden alleen de documenten getoond uit de opgegeven map.
Als dit eenvoudiger kan dan mijn bouwwerk, dan graag!!

Karel