gennemsøge bibliotek for filnavne og putte dem i excel ark

To små kodestumper i et almindeligt kodemodul (Husk at rette "P:\" til dit eget bibliotek):

Sub Mylist()
ListFiles Directory:="p:\", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim r As Long, i As Long
       
    If Directory = "" Then Exit Sub
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
   
'  Insert headers
    r = 1
    Cells.ClearContents
    Cells(r, 1) = "FileName"
    Cells(r, 2) = "Size"
    Cells(r, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    r = r + 1

    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = SubDir
        .Execute
        For i = 1 To .FoundFiles.Count
            Cells(r, 1) = .FoundFiles(i)
            Cells(r, 2) = FileLen(.FoundFiles(i))
            Cells(r, 3) = FileDateTime(.FoundFiles(i))
            r = r + 1
        Next i
    End With
End Sub

der skal nok sættes begrænsninger

  .Filename = "*.*"
skal nok være

  .Filename = "90.30.???.???-??.xls"

Lige i øjet x-lars

Og kabbak det er ikke så vigtigt da der ikke er ås mange filer ud over dem jeg filtrerer, men ellers takf or budet, jeg havd genneskuet denne

Jamen, så får du da et svar her! §;-D