Dateinamen aller Dateien aus einem Ordner kopieren

[DragonSugger]

Hallo

ich möchte gerne aus einem Ordner alle darin enthaltenen Dateien die Namen kopieren und in ein Listview oder Textbox anzeigen lassen.

Wie geht das?

Danke schonmal

Gruß

 

[Yaslaw]

Binde "Microsoft Scripting Runtime" ein. Dann kannst du mit dem folgenden alle Dateinamen auslesen

    Dim fso As New FileSystemObject
    
    For Each myFile In fso.GetFolder("C:/Temp").Files
        Debug.Print myFile.Name
    Next