Moin,
Ich habe ein problem mit dem vergleich 2er Ordner übers Netzwerk.
Irgendwie liegt das änderungsdatum einer Datei vor dem erstellungsdatum.
Bin mir gerade nicht sicher das Modul von Rainer erstellungs oder änderungsdatum anzeigt ? und wenn ja wie änder ich es auf erstellungsdatum also create File.
Danke mfg joe
Public Function GFTM(ByVal Datei As String) As String
Dim lngHandle As Long, SHDirOp As SHFILEOPSTRUCT, lngLong As Long
Dim Ft1 As FILETIME, Ft2 As FILETIME, SysTime As SYSTEMTIME
lngHandle = CreateFile(Datei, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
GetFileTime lngHandle, Ft1, Ft1, Ft2
FileTimeToLocalFileTime Ft2, Ft1
FileTimeToSystemTime Ft1, SysTime
GFTM = LTrim(Str$(SysTime.wDay)) + „.“ + LTrim(Str$(SysTime.wMonth)) + „.“ + LTrim(Str$(SysTime.wYear)) + „.“ + LTrim(Str$(SysTime.wHour)) + „:“ + LTrim(Str$(SysTime.wMinute)) + „:“ + LTrim(Str$(SysTime.wSecond))
CloseHandle lngHandle
End Function