FileHandle = CreateFile(strFile, lngMode, _
      FILE_SHARE_READ Or FILE_SHARE_WRITE, _
      ByVal  0 &, OPEN_EXISTING, _
      FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_RANDOM_ACCESS,  0 &)

    FileHandle = CreateFile(strFile, lngMode, _
      FILE_SHARE_READ Or FILE_SHARE_WRITE, _
      ByVal  0 &, OPEN_EXISTING, _
      FILE_FLAG_BACKUP_SEMANTICS,  0 &)

Type FILETIME
    lngLowDateTime As Long
    lngHighDateTime As Long
End Type

Type SYSTEMTIME
    intYear As Integer
    intMonth As Integer
    intDayOfWeek As Integer
    intDay As Integer
    intHour As Integer
    intMinute As Integer
    intSecond As Integer
    intMilliseconds As Integer
End Type

Type typFileTimes
    datCreated As Date
    datAccessed As Date
    datModified As Date
End Type

Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_ALWAYS =  2 
Const CREATE_NEW =  1 
Const OPEN_ALWAYS =  4 
Const OPEN_EXISTING =  3 
Const TRUNCATE_EXISTING =  5 
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Const FILE_FLAG_NO_BUFFERING = &H20000000
Const FILE_FLAG_OVERLAPPED = &H40000000
Const FILE_FLAG_POSIX_SEMANTICS = &H1000000
Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000
Const FILE_FLAG_WRITE_THROUGH = &H80000000
Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000

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
  
Declare Function CloseHandle Lib "kernel32" ( _
  ByVal hObject As Long) As Long

Declare Function SystemTimeToFileTime Lib "kernel32" ( _
  lpSystemTime As SYSTEMTIME, _
  lpFileTime As FILETIME) As Long

Declare Function LocalFileTimeToFileTime Lib "kernel32" ( _
  lpLocalFileTime As FILETIME, _
  lpFileTime As FILETIME) As Long

Declare Function SetFileTime Lib "kernel32" ( _
  ByVal hFile As Long, _
  lpCreationTime As FILETIME, _
  lpLastAccessTime As FILETIME, _
  lpLastWriteTime As FILETIME) As Long
  
Function fnQuickOpenFile( _
  strFile As String, _
  Optional lngMode As Long = GENERIC_READ) As Long
    fnQuickOpenFile = CreateFile(strFile, lngMode, _
      FILE_SHARE_READ Or FILE_SHARE_WRITE, _
      ByVal  0 &, OPEN_EXISTING, _
      FILE_FLAG_BACKUP_SEMANTICS,  0 &)
      ' Для изменения даты/времени файла.
      ' FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_RANDOM_ACCESS
End Function

Sub VBATimeToFileTime( _
  datTime As Date, _
  ftTime As FILETIME, _
  Optional fLocal As Boolean = True)
    Dim stSystem As SYSTEMTIME
    Dim ftSystem As FILETIME
    
    Call VBATimeToSysTime(datTime, stSystem)
    
    If CBool(SystemTimeToFileTime(stSystem, ftTime)) Then
        If fLocal Then
            Call LocalFileTimeToFileTime(ftTime, ftSystem)
            ftTime = ftSystem
        End If
    End If
End Sub

Sub VBATimeToSysTime( _
  datTime As Date, _
  stSysTime As SYSTEMTIME)
    With stSysTime
        .intMonth = Month(datTime)
        .intDay = Day(datTime)
        .intYear = Year(datTime)
        .intHour = Hour(datTime)
        .intMinute = Minute(datTime)
        .intSecond = Second(datTime)
    End With
End Sub
  
Function fnSetFileTimes( _
  strFile As String, _
  dftTimes As typFileTimes) As Boolean
    Dim ftCreated As FILETIME
    Dim ftAccessed As FILETIME
    Dim ftModified As FILETIME
    Dim hFile As Long
    
    hFile = fnQuickOpenFile(strFile, GENERIC_WRITE)
    
    If hFile >  0  Then
        With dftTimes
            Call VBATimeToFileTime(.datCreated, ftCreated)
            Call VBATimeToFileTime(.datAccessed, ftAccessed)
            Call VBATimeToFileTime(.datModified, ftModified)
        End With
        
        If CBool(SetFileTime(hFile, ftCreated, _
          ftAccessed, ftModified)) Then
            fnSetFileTimes = True
        End If
        
        Call CloseHandle(hFile)
    End If
End Function

Sub ChangeFileDateTime()
    Dim dft As typFileTimes
    
    With dft
        .datCreated = # 1 / 1 / 1997   12 : 00 : 00  PM#
        .datAccessed = # 1 / 1 / 1997   12 : 00 : 00  PM#
        .datModified = # 1 / 1 / 1997   12 : 00 : 00  PM#
    End With
    
    ' Меняем дату и время файла.
    'Call fnSetFileTimes("D:\1\Test.txt", dft)
    
    ' Меняем дату и время папки.
    Call fnSetFileTimes("D:\1\AAA", dft)
End Sub