Dateidatum per VBA ändern

[Gockel67]

Moin Gemeinde,

folgende Problemstellung.
Beim Umkopieren von Dateien soll das Originaldatum beibehalten werden.
Da meine Kenntnisse dafür nicht ausreichen habe ich mir aus dem Internet eine Routine geladen die nach dem kopieren der Datei das Datum der Zieldatei umschreibt.

Leider scheint diese Routine nicht 100% zu funktionieren. Manche Daten werden falsch geschrieben.
Beispiel:
Aus dem 01.01.2026 wird der 31.12.2025
Aus dem 01.03.2026 wird der 28.02.2026
Der Februar funktioniert überhaupt nicht. Es fehlt jedes mal ein Tag. Aus dem 15. wird der 14. usw.

Zum Testen hab ich mir eine kleine Routine gemacht anhand derer man das ganze nachvollziehen kann.

Könnte mal jemand bitte da drauf schauen? Füge ich im Anhang bei.
Als Test kann jede beliebige Datei verwendet werden. Es muss in meinem Programm dann nur der Pfad angepasst werden.
Oder hat zufällig jemand eine Routine die zuverlässig arbeitet?

Wünsche allen ein schönes Wochenende
Jörg

[Debus]

Versuch mal so in etwas

Code [Auswählen] Erweitern

Dim OriginalDatum As Date
Dim ZielDatei As Object

OriginalDatum = Datei.DateLastModified

fso.CopyFile Datei.Path, Ziel & "\" & Datei.Name, True

Set ZielDatei = fso.GetFile(Ziel & "\" & Datei.Name)

ZielDatei.DateLastModified = OriginalDatum

Das passt zu Deinem alten Code, ist schon was länger her

Gruß
Holger

[Gockel67]

Danke Holger, werde ich morgen ausprobieren.

[Knobbi38]

Hallo Jörg,

Beim Umkopieren von Dateien soll das Originaldatum beibehalten werden.

Was genau meinst du damit? Es gibt 3 Daten: Created, LastAccessed, LastModified. Alle verhalten sich wie erwartet und werden nicht einfach willkürlich beim kopieren geändert. Insbesondere LastModified wird beim Kopieren nicht verändert, deshalb ist der Code aus #1 so auch erstmal etwas sinnfrei.

Knobbi38

 

[Debus]

Hallo Ulli,

so ein bisschen passt das alles zu dem Thread von Jörg hier

Da gabe es schon einiges dazu. Er hat da schon was fertiges so ansatzweise, welches nur angepasst umgearbeitet werden müsste, wenn ich mich richtig erinnere




Gruß
Holger