bestands naam uitlezen

[finrod]

Hallo

ik heb een vraag is het mogelijk om alle bestands namen in een map uit te lezen en in exel te plaatsen automaties, ik heb een film database gemaakt in exel met vba en nu zou ik een knop willen maken die automaties de naam van de geselectereerde films op een rij zet.

kan dit?

 

[Wigi]

Hier is een lap code:

Sub RunCodeOnAllXLSFiles()

    Dim lCount As Long
    Dim wbCodeBook As Workbook

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False

    On Error Resume Next

    Set wbCodeBook = ThisWorkbook

    With Application.FileSearch
        .NewSearch
        
        '=========================================
        'pas hier de map aan
        .LookIn = "C:\MijnDatabase"
        '=========================================
        
        .FileType = msoFileTypeExcelWorkbooks

        If .Execute > 0 Then
            For lCount = 1 To .FoundFiles.Count

                wbCodeBook.Sheets(1).Range("A" & lCount).Value = .FoundFiles(lCount)

            Next
        End If
    End With

    On Error GoTo 0
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    
End Sub

Wigi

 

[finrod]

thx voor het antwoordt.

 

[Wigi]

Graag gedaan, zet de vraag nog op opgelost aub.

Wigi

PS:

thx voor het antwoordt.