Bestandsnamen in directory inlezen

[Joost.van.Steeg]

Is het mogelijk om met een macro een directory uit te lezen?

Bijvoorbeeld:
C:\Bestanden

Hierin zitten 3 files:
Bestand1.doc
Bestand2.exe
Bestand3.xls

Middels de macro wordt:
Cel A1 = Bestand1.doc
Cel B1 = Bestand2.exe
Cel C1 = Bestand3.xls

Alvast bedankt

 

[Roncancio]

In de helpfunctie van VBA-Excel zit een klant en klare oplossing.

Sub BestandZoeken()
Set bz = Application.FileSearch
With bz
    .LookIn = "C:\Bestanden"
    .Filename = "*.*"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Range("A" & i).Value = .FoundFiles(i)
        Next 
    End If
End With

End Sub

Ik heb de code aangepast aan je vraag.

In de A-kolom worden de namen geplaatst.

Met vriendelijke groet,


Roncancio

 

[Joost.van.Steeg]

Topper, niet voor niets een giga senior!:thumb:

 

[Roncancio]

Topper, niet voor niets een giga senior!:thumb:

Nah, dat zegt niets.

Gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio