Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: krovit on July 26, 2021, 12:33:26 pm

Title: Change date to file
Post by: krovit on July 26, 2021, 12:33:26 pm
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)


Title: Re: Change date to file
Post by: SpriggsySpriggs on July 26, 2021, 12:43:21 pm
@krovit There is a way to do this with WinAPI code. I am trying to write up a small sample for you ;)
Title: Re: Change date to file
Post by: SpriggsySpriggs on July 26, 2021, 01:23:32 pm
@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]
  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
  14.  
  15. Type FILETIME
  16.     As _Unsigned Long dwLowDateTime, dwHighDateTime
  18.  
  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)
  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)
  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
  47.  
  48. CloseHandle hFile
Title: Re: Change date to file
Post by: krovit on July 27, 2021, 02:30:40 am
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)!...



Text Only | Text with Attachments