Hallo,
ich suche derzeit eine VBA, welche die zuletzt geänderte Datei in einem Ordner suchen soll und mir diese dann ausgeben soll.
Eine VBA diesbezüglich habe ich bereits im Internet gefunden. Nur leider klappt diese noch nicht so ganz 100%.
Es funktioniert soweit alles, nur zeigt es mir immer den selben Datei Namen an, obwohl das zuletzt geänderte Datum/Uhrzeit von der wirklichen zuletzt geänderten Datei stammt. Ich hoffe man versteht was ich meine.
Hier der Code:
Sub Find_New_Filedate()
' von Rainer (Ramses)
'Liefert jüngste Datei in einem Verzeichnis
'Dim I As Long
Dim strDateiname As String, strPath As String, strDEW As String
Dim StoreDate As Date, StoreName As String
'Variablen setzen
On Error GoTo ErrorHandler
'Pfad
strPath = "G:\Excel\" ' mit Backslash endend!
'Dateierweiterung
strDEW = "*.xlsm"
strDateiname = Dir(strPath & strDEW)
Do While (strDateiname <> "")
If FileDateTime(strPath & strDateiname) > StoreDate Then
StoreDate = FileDateTime(strPath & strDateiname)
StoreName = Dir()
End If
strDateiname = Dir()
Loop
If StoreDate = 0 Then
MsgBox "Keine Dateien dieses Typs " & strDEW & " gefunden"
Else
MsgBox ("Die jüngste Datei ist: """ & StoreName & """, erstellt am " & StoreDate)
End If
Exit Sub
ErrorHandler: MsgBox "Das Verzeichnis: " & strPath & " konnte nicht gefunden werden! "
End Sub
Findet vielleicht jemand auf die schnelle den Fehler ?
Gruß
|