In einem früheren Tipp haben wir Ihnen gezeigt, wie sich das Datum und die Uhrzeit einer Datei ermitteln und ändern lässt. Dieser Tipp funktioniert jedoch nicht mit Verzeichnissen. Ein paar kleine Änderungen jedoch bewirken Wunder Folgende Angaben können ermittelt bzw. neu gesetzt werden:
Option Explicit ' alle benötigten API-Funktionen Private Declare Function CreateFile Lib "kernel32" _ Alias "CreateFileA" ( _ ByVal lpFilename As String, _ ByVal dwDesiredAccess As Long, _ ByVal dwShareMode As Long, _ lpSecurityAttributes As Any, _ ByVal dwCreationDisposition As Long, _ ByVal dwFlagsAndAttributes As Long, _ ByVal hTemplateFile As Long) As Long Private Declare Function GetFileTime Lib "kernel32" ( _ ByVal hFile As Long, _ lpCreationTime As FILETIME, _ lpLastAccessTime As FILETIME, _ lpLastWriteTime As FILETIME) As Long Private Declare Function SetFileTime Lib "kernel32" ( _ ByVal hFile As Long, _ lpCreationTime As FILETIME, _ lpLastAccessTime As FILETIME, _ lpLastWriteTime As FILETIME) As Long Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Private Declare Function FileTimeToLocalFileTime Lib "kernel32" ( _ lpFileTime As FILETIME, _ lpLocalFileTime As FILETIME) As Long Private Declare Function FileTimeToSystemTime Lib "kernel32" ( _ lpFileTime As FILETIME, _ lpSystemTime As SYSTEMTIME) As Long Private Declare Function LocalFileTimeToFileTime Lib "kernel32" ( _ lpLocalFileTime As FILETIME, _ lpFileTime As FILETIME) As Long Private Declare Function SystemTimeToFileTime Lib "kernel32" ( _ lpSystemTime As SYSTEMTIME, _ lpFileTime As FILETIME) As Long Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const FILE_SHARE_READ = &H1 Private Const FILE_SHARE_WRITE = &H2 Private Const OPEN_EXISTING = 3 Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000 Datumswerte ermitteln Private Function ReadFolderTime(ByVal sFolder As String, _ tCreation As Date, tLastAccess As Date, _ tLastWrite As Date) As Boolean ' Datum/Zeitwert eines Ordners ermitteln Dim fHandle As Long Dim ftCreation As FILETIME Dim ftLastAccess As FILETIME Dim ftLastWrite As FILETIME Dim LocalFileTime As FILETIME Dim LocalSystemTime As SYSTEMTIME ReadFolderTime = False ' ggf. abschließenden Backslash hinzufügen If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\" ' Verzeichnishandle ermitteln fHandle = CreateFile(sFolder, GENERIC_READ Or GENERIC_WRITE, _ FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, _ OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0&) If fHandle <> -1 Then ' Zeitinformationen auslesen If GetFileTime(fHandle, ftCreation, ftLastAccess, _ ftLastWrite) <> 0 Then ' Erstellungsdatum FileTimeToLocalFileTime ftCreation, LocalFileTime FileTimeToSystemTime LocalFileTime, LocalSystemTime With LocalSystemTime tCreation = CDate(Format$(.wDay) & "." & _ Format$(.wMonth) & "." & Format$(.wYear) & " " & _ Format$(.wHour) & ":" & Format$(.wMinute, "00") & _ ":" & Format$(.wSecond, "00")) End With ' Letzter Zugriff FileTimeToLocalFileTime ftLastAccess, LocalFileTime FileTimeToSystemTime LocalFileTime, LocalSystemTime With LocalSystemTime tLastAccess = CDate(Format$(.wDay) & "." & _ Format$(.wMonth) & "." & Format$(.wYear) & " " & _ Format$(.wHour) & ":" & Format$(.wMinute, "00") & _ ":" & Format$(.wSecond, "00")) End With ' Letzte Änderung FileTimeToLocalFileTime ftLastWrite, LocalFileTime FileTimeToSystemTime LocalFileTime, LocalSystemTime With LocalSystemTime tLastWrite = CDate(Format$(.wDay) & "." & _ Format$(.wMonth) & "." & Format$(.wYear) & " " & _ Format$(.wHour) & ":" & Format$(.wMinute, "00") & _ ":" & Format$(.wSecond, "00")) End With ReadFolderTime = True End If ' Verzeichnishandle schließen CloseHandle fHandle End If End Function Datumswerte ändern Private Function WriteFolderTime(ByVal sFolder As String, _ ByVal tCreation As Date, ByVal tLastAccess As Date, _ ByVal tLastWrite As Date) As Boolean ' Datum/Zeitwert eines Ordners ändern Dim fHandle As Long Dim ftCreation As FILETIME Dim ftLastAccess As FILETIME Dim ftLastWrite As FILETIME Dim LocalFileTime As FILETIME Dim LocalSystemTime As SYSTEMTIME WriteFolderTime = False ' ggf. abschließenden Backslash hinzufügen If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\" ' Verzeichnishandle ermitteln fHandle = CreateFile(sFolder, GENERIC_READ Or GENERIC_WRITE, _ FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, _ OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0&) If fHandle <> -1 Then ' Erstellungsdatum With LocalSystemTime .wDay = Day(tCreation) .wDayOfWeek = Weekday(tCreation) .wMonth = Month(tCreation) .wYear = Year(tCreation) .wHour = Hour(tCreation) .wMinute = Minute(tCreation) .wSecond = Second(tCreation) End With SystemTimeToFileTime LocalSystemTime, LocalFileTime LocalFileTimeToFileTime LocalFileTime, ftCreation ' Letzter Zugriff With LocalSystemTime .wDay = Day(tLastAccess) .wDayOfWeek = Weekday(tLastAccess) .wMonth = Month(tLastAccess) .wYear = Year(tLastAccess) .wHour = Hour(tLastAccess) .wMinute = Minute(tLastAccess) .wSecond = Second(tLastAccess) End With SystemTimeToFileTime LocalSystemTime, LocalFileTime LocalFileTimeToFileTime LocalFileTime, ftLastAccess ' Letzte Änderung With LocalSystemTime .wDay = Day(tLastWrite) .wDayOfWeek = Weekday(tLastWrite) .wMonth = Month(tLastWrite) .wYear = Year(tLastWrite) .wHour = Hour(tLastWrite) .wMinute = Minute(tLastWrite) .wSecond = Second(tLastWrite) End With SystemTimeToFileTime LocalSystemTime, LocalFileTime LocalFileTimeToFileTime LocalFileTime, ftLastWrite ' Datumswerte neu setzen If SetFileTime(fHandle, ftCreation, ftLastAccess, _ ftLastWrite) <> 0 Then WriteFolderTime = True End If ' Verzeichnishandle schließen CloseHandle fHandle End If End Function Aufruf der Funktionen: Dim tCreation As Date ' Erstellt am Dim tLastAccess As Date ' Letzter Zugriff Dim tLastWrite As Date ' Letzte Änderung ' Ordner Dim sFolder As String sFolder = "c:\temp" ' Zeitangaben lesen If ReadFileTime(sFolder, tCreation, tLastAccess, tLastWrite) Then ' Erstellungsdatum ändern tCreation = CDate("29.08.2002 17:35:41") ' Datum "Letzter Zugriff" ändern tLastAccess = CDate("29.08.2002 17:35:41") ' Datum "Letzter Änderung" ändern tLastWrite = CDate("29.08.2002 17:35:41") ' Zeitangaben setzen WriteFileTime Datei, tCreation, tLastAccess, tLastWrite End If Dieser Tipp wurde bereits 16.992 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |