Mappe oversigt.

Prøv et kig her - denne guide hjælper dig til at hente en mappeoversigt, og importere denne i Excel:
http://www.handyexceltips.com/2008/03/05/generating-list-of-the-contents-of-any-folder/
Jeg har ikke selv testet guiden, men det ser ud til at være dejligt nemt.
/Be_Nice

Ellers er dette en løsning med vba

for filer

Sub SrchForFiles()
        Dim i As Long, z As Long, Rw As Long
    Dim ws As Worksheet
    Dim y As Variant
    Dim fLdr As String, fil As String, FPath As String
    Dim MyTempList As Variant
    Dim lfldrnm As Integer
    Dim FldrName As String
    Dim FilName As String
    Dim sTmp As String
    Dim t As Long
   
   
    y = "*.*"
    Application.ScreenUpdating = False
    '**********************************************************************
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        fLdr = .SelectedItems(1)
    End With
    '**********************************************************************
    With Application.FileSearch
        .NewSearch
        .LookIn = fLdr
        .SearchSubFolders = True
        .Filename = y
     
      On Error GoTo 0
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                fil = .FoundFiles(i)
                    'Get file path from file name
                    MyTempList = Split(fil, "\")
                        For t = 0 To UBound(MyTempList)
                        Next t
                    Filename = MyTempList(UBound(MyTempList))
                Cells(i, 1).Select
                ActiveCell.Value = Filename
               
            Next i
        End If
    End With
   
     
    Exit Sub

End Sub

Igoogles forslag virker godt, ville dog gerne have mappenavne med ud også hvis det er muligt.

On Error GoTo 0
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                fil = .FoundFiles(i)
                    'Get file path from file name
                    MyTempList = Split(fil, "\")
                        For t = 0 To UBound(MyTempList)
                        Next t
                    Filename = MyTempList(UBound(MyTempList)-1)
                Cells(i, 1).Select
                ActiveCell.Value = Filename
Filename = MyTempList(UBound(MyTempList))               
Cells(i,2).Select
ActiveCell.value

hvis du ændre til dette vil du få mappe navn i kolummme A og filnavn i B

Det ser rigtigt ud, udover at den sortere kolonne b. kan den sortere i kolonne a istedet??

det er måde den søger på igennem mapperne hvor den tager en mappe af gange og lister filerne..

du kan efterfølgende lave en macro og tilføje den i slutningen der sortere A og B efter A.

Ja, troede bare man kunne lave noget andet, men dette er super fint. Smid et svar, og tak for hjælpen.

iorden