title image


Smiley Genau dafür sind diese Zeitstempel ja auch da.
Das Erstellungsdatum wird auf die Zeit gesetzt, zu der diese Datei (also die Kopie) erstellt wurde und das ist eben dann, wenn die Kopie erstellt wird



Das Zugriffdatum wird auf die Zeit gesetzt, zu der auf diese Datei (also die Kopie) zuletzt zugegriffen wurde und das ist eben dann, wenn die Kopie erstellt wird



Das Änderungsdatum bleibt unverändert, weil sich ja die Datei durch das kopieren nicht ändert (sonst wäre es ja keine Kopie)





Du kannst jetzt vorher diese Zeiten auslesen mit



Private Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long



und nach dem kopieren wieder setzen mit



Private Declare Function SetFileTime Lib "kernel32" Alias "SetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long





Den Type brauchst du auch noch:



Private Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type





Dazu mußt du die Datei mit OpenFile öffnen und mit CloseHandle schließen. Der Rückgabewert von OpenFile ist das FileHandle (hFile), das du bei GetFileTime, SetFileTime und CloseHandle brauchst





Public Const GENERIC_WRITE = &H40000000

Public Const GENERIC_READ = &H80000000

Private Type OFSTRUCT

cBytes As Byte

fFixedDisk As Byte

nErrCode As Integer

Reserved1 As Integer

Reserved2 As Integer

szPathName(OFS_MAXPATHNAME) As Byte

End Type

Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: