Как изменить дату и время модификации файла?

valdimir пишет:Подскажите как изменить дату и время модификации файла?
Есть функция, которая возвращает дату и время последней модификации файла "FileDateTime", а вот возможности изменить их я не нашёл. Мне нужно дату и время модификации одного файла скопировать в другой файл.

valdimir пишет:В Freebasic такой команды нет. Но всё равно спасибо за ответ.

valdimir пишет:Про Winapi это я догадался, вот только как всё это дело подключить в freebasic и использовать так в интернете и не нашел.

Код:

#Include "windows.bi"

Dim h As HANDLE
Dim ft As FILETIME
Dim st As SYSTEMTIME
Dim tzi As TIME_ZONE_INFORMATION
Dim As Short hour_  = 3 ' час
' узнаем разницу во времени для своего региона
GetTimeZoneInformation(@tzi)

' задаем время
st.wyear = 2000
st.wmonth = 5
st.wday = 23
If hour_+tzi.Bias\60<0 Then
   hour_ = hour_+24
EndIf
st.whour = (hour_+tzi.Bias\60)
st.wminute = 55

' открываем файл
h = CreateFile("1.txt",GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)

If h<> -1 Then
   ' преобразовываем системное время в файловое
   SystemTimeToFileTime( @st, @ft )
   ' устанававливаем время создания файла
   ' если нужно время последнего доступа или последней перезаписи
   ' то точно также, но передаем структуру ft во втором и третьем параметре соответственно
   SetFileTime(h,@ft,0,0)
   ' закрываем файл
   CloseHandle(h)
EndIf


valdimir пишет:За пример спасибо. Попробовал его запустить - ничего не произошло. Наверно что-то не так делал.

valdimir пишет:Всё так и сделал, но в свойствах файла ничего не меняется. Пробовал полный путь к файлу прописывать - не помогает.

valdimir пишет:Система Windows XP SP3 x86, Freebasic 0.24.0. Папки ничем не защищены от записи (все записывают кому не лень  ). Антивирус ESS 5, тоже никого не трогает (особенно своих).

Код:

#Include "windows.bi"

Dim h As HANDLE
Dim ft As FILETIME
Dim st As SYSTEMTIME
Dim tzi As TIME_ZONE_INFORMATION
Dim As Short hour_  = 3 ' час
' узнаем разницу во времени для своего региона
Var temp = GetTimeZoneInformation(@tzi)
? GetLastError
? temp
' задаем время
st.wyear = 2000
st.wmonth = 5
st.wday = 23
If hour_+tzi.Bias\60<0 Then
   hour_ = hour_+24
EndIf
st.whour = (hour_+tzi.Bias\60)
st.wminute = 55

' открываем файл
h = CreateFile("1.txt",GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
? GetLastError
? h
If h<> -1 Then
   ' преобразовываем системное время в файловое
   temp = SystemTimeToFileTime( @st, @ft )
   ? GetLastError
   ? temp
   ' устанававливаем время создания файла
   ' если нужно время последнего доступа или последней перезаписи
   ' то точно также, но передаем структуру ft во втором и третьем параметре соответственно
   temp = SetFileTime(h,@ft,0,0)
   ? GetLastError
   ? temp
   ' закрываем файл
   CloseHandle(h)
EndIf
Sleep

valdimir пишет:Результаты из консоли:
126
2
0
1996
0
1
0
1

valdimir пишет:Почему-то по разному выводится результат. Первый раз запустил скомпилированный файл с командной строки так: program.exe>rezultat.txt. Затем скопировал содержимое файла rezultat.txt (результат в предыдущем посте).
А сейчас вручную переписал результат из консоли:
126
2
0
56
0
1
0
1
Включение/отключение антивируса не влияет на результат.

valdimir пишет:Да собственно вопрос то стоял: изменить дату и время модификации (последнего изменения) файла. В примере меняется только дата создания файла. Кроме того нужно эти параметры прочитать из одного файла и записать в другой.

Попробовал его запустить - ничего не произошло. Наверно что-то не так делал.

Всё так и сделал, но в свойствах файла ничего не меняется. Пробовал полный путь к файлу прописывать - не помогает.

...
 ' устанававливаем время создания файла
  ' если нужно время последнего доступа или последней перезаписи
  ' то точно также, но передаем структуру ft во втором и третьем параметре соответственно
...

valdimir пишет:Подскажите как изменить дату и время модификации файла?
Есть функция, которая возвращает дату и время последней модификации файла "FileDateTime", а вот возможности изменить их я не нашёл. Мне нужно дату и время модификации одного файла скопировать в другой файл.

valdimir пишет:Исходный текст я естественно смотрел, и если бы полностью понимал его, то не задавал бы здесь вопросов. А в самом начале темы я задал вопрос:

valdimir пишет:Подскажите как изменить дату и время модификации файла?
Есть функция, которая возвращает дату и время последней модификации файла "FileDateTime", а вот возможности изменить их я не нашёл. Мне нужно дату и время модификации одного файла скопировать в другой файл.

Ответ на который и хотел узнать. А ваш пример, извините не смог ответить на этот вопрос, так как в нём было задумано не то, что нужно по существу вопроса.
Так что по видимому мы не поняли друг друга: вы - мой вопрос, а я естественно ваш ответ.

Код:

#Include "windows.bi"
Dim As HANDLE h,h2
Dim ft As FILETIME
Dim st As SYSTEMTIME
' открываем файлы
h = CreateFile("1.txt",GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
h2 = CreateFile("2.txt",GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
If h<> -1 And h2<> -1 Then  
   SystemTimeToFileTime( @st, @ft )' преобразовываем системное время в файловое
   GetFileTime(h,@ft,0,0) ' устанававливаем время создания файла
   SetFileTime(h2,@ft,0,0) ' если нужно время последнего доступа или последней перезаписи  
   GetFileTime(h,0,@ft,0) ' то точно также, но передаем структуру ft во втором и третьем параметре соответственно
   SetFileTime(h2,0,@ft,0)  
   GetFileTime(h,0,0,@ft)
   SetFileTime(h2,0,0,@ft)
   CloseHandle(h)   ' закрываем файлы
   CloseHandle(h2)
EndIf