Hallo Gemeinschaft,
in einem Ordner befinden sich Dateien, denen ein Datum (JJJJMMTT) zur besseren Sortierung vorangestellt ist. Durch ein Gleichheitszeichen wird dieser "Dateivorbau" vom übrigen Dateiname getrennt. Wenn ich das nachfolgende Script laufenlassen, werden zwar alle Dateien auf die gewünschten Datümmer eingestellt (also TT.MM.JJJ 19:00:00 - aber einige Dateien erhalten die Dateizeit 20:00:00, das Datum stimmt. Hier der Code
Könnte da so eine Art Sommer-/Winterzeit-Syndrom sein. d.h. wenn die Datei zur Winterzeit (also z.B. heute) erstellt wurde, wird auf 19:00 Uhr gewechselt. Ansonsten Sommerzeit - also eine Stunde später.
Kann man das irgendwie umgehen, bei Umstellung auf Sommerzeit wird ja sowieso die Zeit der letzten Änderung um 1 Stunde erhöht.
Winterliche Grüße
in einem Ordner befinden sich Dateien, denen ein Datum (JJJJMMTT) zur besseren Sortierung vorangestellt ist. Durch ein Gleichheitszeichen wird dieser "Dateivorbau" vom übrigen Dateiname getrennt. Wenn ich das nachfolgende Script laufenlassen, werden zwar alle Dateien auf die gewünschten Datümmer eingestellt (also TT.MM.JJJ 19:00:00 - aber einige Dateien erhalten die Dateizeit 20:00:00, das Datum stimmt. Hier der Code
Visual Basic-Quellcode
- Set objShell = CreateObject("Shell.Application")
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- currentFolder = objFso.GetParentFolderName(WScript.ScriptFullName) ' akt. Ordner
- Set objFolder = objShell.NameSpace(currentFolder)
- Set colItems = objFolder.Items
- For Each objItem In colItems
- Set objFile = objFSO.GetFile(objItem.Path)
- If Instr(objFile,"=") Then
- ' Feld=split(objFile,"=")
- TT=mid(objItem,7,2)
- MM=mid(objItem,5,2)
- JJJJ=left(objItem,4)
- Datum=DateSerial(JJJJ,MM,TT)
- ' Msgbox objItem & ": " & Datum
- End if
- objItem.ModifyDate = DateValue(Datum) & " 19:00:00" ' TimeSerial(19,00,00)
- Next
Könnte da so eine Art Sommer-/Winterzeit-Syndrom sein. d.h. wenn die Datei zur Winterzeit (also z.B. heute) erstellt wurde, wird auf 19:00 Uhr gewechselt. Ansonsten Sommerzeit - also eine Stunde später.
Kann man das irgendwie umgehen, bei Umstellung auf Sommerzeit wird ja sowieso die Zeit der letzten Änderung um 1 Stunde erhöht.
Winterliche Grüße
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sachsenbauch“ ()