Функция SetFileTime

hFile

Дескриптор файла для установки даты создания, последнего обращения и последней модификации. Файл должен быть открыт

lpCreationTime

Дата создания файла

lpLastAccessTime

Дата последнего обращения

lpLastWriteTime

Дата последней модификации

Пример

' Установим время последней модификации
' файла C:\Samples\test.txt в текущую дату
Dim hFile As Long  ' дескриптор открытого файла
Dim ctime As FILETIME  ' дата создания файла
Dim atime As FILETIME  ' дата последнего обращения
Dim mtime As FILETIME  ' дата последней модификации
Dim retval As Long ' возвращаемое значение

' Сначала откроем файл для чтения и записи
hFile = CreateFile("C:\Samples\test.txt", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ, ByVal CLng(0), OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0)
If hFile = -1 Then
  Debug.Print "Не могу открыть указанный файл"
  End
End If

' Затем получаем даты
retval = GetFileTime(hFile, ctime, atime, mtime)

' Получаем системное время через структуру FILETIME
GetSystemTimeAsFileTime mtime
' Устанавливаем полученные даты
retval = SetFileTime(hFile, ctime, atime, mtime)

' Закрываем файл
retval = CloseHandle(hFile)

Смотри также

Категория