Option Explicit

' функции преобразования формата даты

Private Declare Function SystemTimeToFileTime& Lib "kernel32" (lpSystemTIME As SYSTEMTIME, lpFileTime As FILETIME)

Private Declare Function FileTimeToSystemTime& Lib "kernel32" (lpFileTime As FILETIME, lpSystemTIME As SYSTEMTIME)

' функции работы с файлами

Private Declare Function lopen& Lib "kernel32" Alias "_lopen" (ByVal lpFileName As String, ByVal wReadWhite As Long)

Private Declare Function lclose& Lib "kernel32" Alias "_lclose" (ByVal hFile As Long)

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

' функция для анализа ошибок

Private Declare Function GetLastError& Lib "kernel32" ()

' для хранения даты во внутреннем формате

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 Sub Form_Load()

Dim SysTime As SYSTEMTIME, NowTime As FILETIME

Dim FileName$, handleF&, wReadWrite&, k&, k1&

' дата в системном формате

SysTime.wYear = 2008

SysTime.wMonth = 6

SysTime.wDay = 9

SysTime.wHour = 7

SysTime.wMinute = 18

SysTime.wSecond = 24

' преобразование даты во внутренний двоичный формат

k& = SystemTimeToFileTime(SysTime, NowTime)

'

' имя файла - он должен существовать

FileName$ = "Z:\Desktop\1.txt"    'это пример - Вы можете изменить на путь к свому файлу

       

' Работа с файлами только средствами функций API

' ВНИМАНИЕ! Для изменения атрибутов файла,

' он должен  быть открыт в режиме "разрешения

' записи", например:  режим "чтение-запись"

' Const OF_READWRITE& = 2

wReadWrite& = 2

' Открытие файла

handleF& = lopen&(FileName$, wReadWrite&)

' запись новых атрибутов даты

k& = SetFileTime&(handleF&, NowTime, NowTime, NowTime)

' была ли ошибка? Можно проверить

k1& = GetLastError ' код ошибки

' закрытие файла

Call lclose(handleF&)

End Sub