Hente en liste over alle mapper navne

Jeg er ikke helt sikker på, at jeg harfostået dig rigtigt, men prøv med denne makro:

Sub ListFiler()

    Dim Mappe As String
    Dim Undermapper As Boolean

    Mappe = InputBox("Indtast sti til mappe" & vbCrLf _
      & "Fx C:\USA")
        If MsgBox("Skal undermappers indhold også listes?", _
          vbYesNo + vbQuestion) = vbYes Then
            Undermapper = True
        Else
            Undermapper = False
        End If

    Set fs = Application.FileSearch
    With fs
        .LookIn = Mappe
        .SearchSubFolders = Undermapper
        .Filename = "*"
        If .Execute() > 0 Then
            Range("a1").Select
            For i = 1 To .FoundFiles.Count
                ActiveCell.Value = .FoundFiles(i)
                ActiveCell.Offset(1, 0).Select
            Next i
        Else
            MsgBox "Mappen findes ikke, eller den er tom", vbOKOnly + vbExclamation
        End If
    End With
End Sub

Ja det var lige det jeg sku brug, men jeg får en list med undermappers navn. jeg skal brug selv mappe dvs. mappen hedder fx.samsøe alle stores. i denne mappe lægger da en mappe some hedder samsøe &samsøe og der ligger nogen excel filer.

jeg skal brug samsøe all stores.

hvis jeg vælger nej til skal undermapper indhold også listes. mappen findes ikke eller den er tom.

hvis jeg vælger ja få jeg en list såden

C:\Documents and Settings\ali.abdulhadi\Dokumenter\alijan\Faktura\samsøe all stores\Samsøe & Samsøe\01-06-08\1.xls

jeg lukket :-(