Udskriv mappe oversigt

Denne kode viser en meddelelsesboks med navnen de påp de foldere, som en given Startfolder indeholder. Den viser ikke undermapper, men måske kan du bruge den som udgangspunkt:

Sub ShowFolderList()
    Dim folderspec As String
    Dim fs, f, f1, s, sf
    folderspec = InputBox("Indtast startmappe")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = s & f1.Name
        s = s & vbCrLf
    Next
    MsgBox s

End Sub

Jeg vil prøve om jeg kan arbejde videre på den, men vil selvfølgelig helst have et forslag der også viser undermapperne

Du kan evt bruge denne til at åbne undermapperne og så gentage sig selv - i et loop til der ikek er flere mapper tilbage. Jeg har bare ikke lige tid til eksperimentere lige nu :-)

Ok, jeg forsøger

Kan du alternativt bruge et lille freeware program, Print Folder, som viser mappe/undermapper og evt. filer, hvis det slås til. Kan udskrives, gemmes i fil eller via udklipsholder sættes ind i et dokument.
http://no-nonsense-software.com/freeware/

se også screenshot.

Jeg vil meget gerne lave min egen oversigt, men har stadig problemer med at få undermapperne vist.

Jeg har set lidt mere på det, og jeg kan desværre ikke umiddelbart se nogen funktion, der også vider undermapperne.