Private Const OFS_MAXPATHNAME = 128
Private Const OF_WRITE = &H1
Private Const OF_READ = &H0
Private Const HFILE_ERROR As Long = -1
 
' OpenFile() Structure
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 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
 
Public Type tGetFileTimeStampType
    CreationTime As Date
    LastWriteTime As Date
    LastAccessTime As Date
End Type
 
Public Enum eSetFileTimeStampEnum
    eSetFileCreationTime = 0
    eSetFileLastWriteTime = 1
    eSetFileLastAccessTime = 2
End Enum
 
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
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 SystemTimeToFileTime Lib "kernel32" (lpSystemTime As _
SYSTEMTIME, lpFileTime As FileTime) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As _
FileTime, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32.dll" ( _
lpLocalFileTime As FileTime, lpFileTime As FileTime) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32.dll" (ByRef _
lpFileTime As FileTime, ByRef lpLocalFileTime As FileTime) As Long

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.