Hallo zusammen,ich habe ein Problem. Ich möchte Dateien mit verschiedenen Dateiendungen (PDF, TXT, usw) anhand einer Liste in einem bestimmten Verzeichnis mit vielen Unterverzeichnissen suchen und dann in ein Zielverzeichnis kopieren. Das ganze funktioniert auch schon recht gut mit dem Hauptverzeichnis. Wie kann ich den Code erweitern, dass auch in allen Unterverzeichnissen gesucht und kopiert wird?
Für eure Hilfe wäre ich sehr dankbar.
Hier der Anfang den ich schon gemacht habe
Set wb = ThisWorkbook
verzQuelle = "C:\Kopierliste\Original\"
verzZiel = "C:\Kopierliste\Kopie\"
Set ws = wb.Worksheets(1)
ws.Columns("B").ClearContents
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set fso = New FileSystemObject
If Not fso.FolderExists(FolderSpec:=verzQuelle) Then
MsgBox verzQuelle & " existiert nicht"
Exit Sub