Inhoudsopgave
Lijst van alle bestandsnamen in directory
De volgende code is een subroutine die de namen krijgt van alle bestanden die aanwezig zijn in een mappad:
Sub List_All_The_Files_Within_Path() Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C:Mijn documenten" Row_No = 36 'Lijst alle bestanden in de huidige map met Application.FileSearch .NewFileSearch .NewFileSearch .LookIn .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets("Sheet1").Cells(kk25 + 5, 15).Value = .FoundFiles(kk25) Volgende kk25 Einde Met Einde Sub
Het schrijft de bestandsnamen naar Blad1 in kolom O - beginnend bij rij 36
Download hier het Excel-bestand
