Change date to file

[krovit]

Maybe it's the timestamp?
On the forum there is very little on the subject, or I do not know what is the keyword to search for.
I don't know...

I would like to change the dates to the file (creation date, last modification, last access).
These values do not seem to exist in "as it is" inside the file and are not available with OPEN BINARY.
Probably are written in another format.

I tried to look for them in UNIX TIME but it does not seem to be the right method.

All this I need for PDF files.
The dates I'm talking about are not metadata (which in PDF files are easily identifiable and editable).

I would like to do with QB64 - if is it possibile - something of what Attribute Changer very good does (https://www.petges.lu)


Any suggestions?

(Sorry, if I knew how to use WinAPI I would probably solve many problems...)



Tank you (beforehand)

[SpriggsySpriggs]

@krovit There is a way to do this with WinAPI code. I am trying to write up a small sample for you ;)

[SpriggsySpriggs]

@krovit Here you go. This will make a file called "filetest.txt" and then set the last modified time to my birthdate.

Code: QB64: [Select]

1. Option _Explicit
2.  
3. Const GENERIC_READ = &H80000000
4. Const GENERIC_WRITE = &H40000000
5.  
6. Const FILE_ATTRIBUTE_NORMAL = &H00000080
7.  
8. Const CREATE_NEW = 1
9. Const OPEN_EXISTING = 3
10.  
11. Type SYSTEMTIME
12.     As _Unsigned Integer wYear, wMonth, wDayOfWeek, wDay, wHour, wMinute, wSecond, wMilliseconds
13. End Type
14.  
15. Type FILETIME
16.     As _Unsigned Long dwLowDateTime, dwHighDateTime
17. End Type
18.  
19. Declare CustomType Library
20.     Function CreateFile%& (lpFileName As String, Byval dwDesiredAccess As _Unsigned Long, Byval dwShareMode As _Unsigned Long, Byval lpSecurityAttributes As _Offset, Byval dwCreationDisposition As _Unsigned Long, Byval dwFlagsAndAttributes As _Unsigned Long, Byval hTemplateFile As _Offset)
21.     Sub SystemTimeToFileTime (ByVal lpSystemTime As _Offset, Byval lpFileTime As _Offset)
22.     Sub SetFileTime (ByVal hFile As _Offset, Byval lpCreationTime As _Offset, Byval lpLastAcessTime As _Offset, Byval lpLastWriteTime As _Offset)
23.     Sub CloseHandle (ByVal hObject As _Offset)
24. End Declare
25.  
26. Dim As SYSTEMTIME sys
27. Dim As FILETIME modifiedtime
28.  
29. Dim As _Offset hFile
30.  
31. sys.wYear = 1995
32. sys.wMonth = 12
33. sys.wDayOfWeek = 6
34. sys.wDay = 30
35.  
36. hFile = CreateFile("filetest.txt", GENERIC_READ Or GENERIC_WRITE, 0, 0, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0)
37. If hFile <> -1 Then 'If the function fails, the file might already exist.
38.     SystemTimeToFileTime _Offset(sys), _Offset(modifiedtime)
39.     SetFileTime hFile, _Offset(modifiedtime), _Offset(modifiedtime), _Offset(modifiedtime)
40. Else
41.     hFile = CreateFile("filetest.txt", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) 'We open the existing file, maybe.
42.     If hFile <> -1 Then
43.         SystemTimeToFileTime _Offset(sys), _Offset(modifiedtime)
44.         SetFileTime hFile, _Offset(modifiedtime), _Offset(modifiedtime), _Offset(modifiedtime)
45.     End If
46. End If
47.  
48. CloseHandle hFile

[krovit]

Thank you SpriggsySpriggs!

More than Superman (Spriggsy's youtube Channel) you are Mandrake that from the top hat (WinAPI) always pulls out a rabbit (routine)!...