Folder naam in Excel importeren!

[Noord2011]

Beste mensen,

Ik ben opzoek naar een code (VBA) die aantal naam folder vaneen schijf importeren in Excel.
Het gaat om ca. 250 folder waarvan ik ca. 50 folder namen onder elkaar in Excel komen te staan.

(Graag als het kan tegelijk 50st folder naam kunnen importeren.) (bijv selecteren met shift)

Alleen de naam en de size van de folder.

Zie bijlage.

 

[robdgr]

Zie bijlage.

Welke?

 

[Noord2011]

Bekijk bijlage Foldernaam.xls

 

[Noord2011]

Ik heb dit op de onderstaande link gevonden

http://www.helpmij.nl/forum/showthread.php/497163-Lijst-mapnamen-genereren

Wie kan het aanpassen tot mijn wens?

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