Ordnerinhalt ausgeben, Name variiert
11.07.2016 19:24:53
Hendrik
mir ist gerade ein Problem bei meinem Code für die Auflistung von Ordnerinhalte aufgefallen (hier befinden sich die Anhänge für die Mails).
Derzeitig ist das der Code, welcher auch funktioniert... Das Problem liegt aber darin, dass sich der letzte Teile vom Namen des Ordners variiert.
Diese Zeile macht mir Sorgen:
Dateiname = Dir$("S:\SNEID012\Listen\Meine\07_2016_07\*.*")
Was muss ich denn ändern, dass es auch die Dateien ausgibt, wenn sie im Ordner "08_2016_02" _ liegen. Der Ordnername darf nicht geändert werden und es soll die Dateien aus dem Ordner geben, welchen Monat wir gerade haben. Bsp: Monat_Jahr_Tag [07_2016_01]
Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
Dim Dateiname As String, i As Integer
Range("A2:B500").ClearContents
Dateiname = Dir$("S:\SNEID012\Listen\Meine\07_2016_07\*.*")
Cells(2, 1).Select
Do While Dateiname ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Vielen Dank und
Viele Grüße
Hendrik