Lijst mapnamen genereren

[donndz]

Goedendag,

Ik ben opzoek naar een methode/macro om bestandmappen in Excel kolom in te voegen.
Het gaat hier echt alleen namen van alle bestandmappen in een bepaalde map/locatie, niet om de inhoud.
Mijn probleem is namelijk dat ik al mijn fotomappen (+-500) heb gelabeld en deze lijst nu in Excel wilt hebben.
Ben al even bezig geweest op dit forum het e.a. te zoeken maar heb nog niet precies gevonden wat ik zoek. De meeste oplossingen geven juist de inhoud (erbij).

Alvast bedankt voor het meedenken!

 

[Wigi]

De meeste oplossingen geven juist de inhoud (erbij).

Als je die code begrijpt, kan je het toch aanpassen zodat je enkel de mapnaam wegschrijft? Uiteindelijk is dat niet meer dan een lus...

 

[donndz]

Bedankt voor het snelle antwoorden,

Ja dat is een mogelijkheid, echter bij het gene wat ik heb gevonden kan ik bij het bestand "inhoud" de macro niet vinden. Bij het bestand "fotolijst" weet ik niet waarin ik de extensie .jpg moet veranderen. Lukt dit met de extensie van een mapnaam? enzoja wat is deze dan?

alvast bedankt.

 

[Wigi]

Anyway, hier dan maar.

Sub VoerDitUit()

    ZetMappen "C:\Personal Wim\Website"

End Sub

Private Sub ZetMappen(sSourceFolder As String)
    
    For Each fld In CreateObject("scripting.filesystemobject").Getfolder(sSourceFolder).SubFolders
        Range("A" & Rows.Count).End(xlUp).Offset(1) = fld.Path
    Next

    For Each SubFolder In CreateObject("scripting.filesystemobject").Getfolder(sSourceFolder).SubFolders
        ZetMappen SubFolder.Path
    Next

End Sub

Wigi

 

[donndz]

Wederom bedankt!

Ik zal in het vervolg ook even de bestandjes toe voegen waarnaar ik verwijs.....