Mehrere Pfade nach Datei durchsuchen
Sascha
mit folgendem code lasse ich excel in einem Ordner nach der jüngsten Datei suchen und über eine MSG Box ausgeben.
Sub aktuellstetxtimport()
Dim Datei As String
Dim Datum As String
Dim Pfad As String
Dim jüngsteDatei As String
Dim jüngstesDatum As String
Dim strZielverzeichnis As String
Dim strDateinamen As String
Dim kunu As String
kunu = 88888
Pfad = "C:\Daten\TestOrdner1\"
Datei = Dir(Pfad & "Scan_" & kunu & "_" & "*.txt")
Do Until Datei = ""
Datum = Left(Datei, 19)
If Datum > jüngstesDatum Then
jüngstesDatum = Datum
jüngsteDatei = Datei
End If
Datei = Dir()
Loop
MsgBox jüngsteDatei
End Sub
Das funktioniert soweit ganz gut, ich würde gern realisieren, dass excel mehrere Ordner (Pfade) nach dieser Datei durchsucht
Pfad = "C:\Daten\TestOrdner1\"
Pfad = "C:\Daten\TestOrdner2\"
Pfad = "C:\Daten\TestOrdner3\"
Pfad = "C:\Daten\TestOrdner4\"
kann mir jemand dabei helfen das so umzusetzen?
liebe Grüße
Sascha