Thank you, fxm! Function Str2SerNum(ss As String) As Double Dim As Integer ye = Val(Mid(ss, 1, 4)) Dim As Integer mo = Val(Mid(ss, 5, 2)) Dim As Integer da = Val(Mid(ss, 7, 2)) Dim As Integer ho = Val(Mid(ss, 9, 2)) Dim As Integer mi = Val(Mid(ss, 11, 2)) Dim As Integer se = Val(Mid(ss, 13, 2)) Dim ...

Hi!

If tst0 is a timestamp of a file, e.g. 20190217142630, defined as String (or as Double), how to convert it to tst as SerialNumber?

Thanks, Josep...such a stupid typo... This seems to be the final result of my request, which is transparent enogh to me as a newbie. Or are there suggestions to write the two functions more elegant? Thanks to all here for your extraordinary help!!! #Include once "windows.bi" #Include once ...

Hi! This is "nearly perfect": Both GetFileTimeW() and SetFileTimeW() (using Windows functions GetFileTime() and SetFileTime()) are working, but SetFileTime fails if the file name contains Unicode characters. WHY??? #Include once "windows.bi" #Include once "vbcompat.bi" ...

Thanks to all! This is another solution, a code adapted (by me) from a very old posting. It uses the Windows function GetFileTime(). BOOL GetFileTime( HANDLE hFile, LPFILETIME lpCreationTime, LPFILETIME lpLastAccessTime, LPFILETIME lpLastWriteTime ); And it works perfectly. #Include once "windo...

Thank you, dodicat. I see now that there would be a way to get the file's timestamp, but to implement a solution to set e.g. the last modification time would be beyond my possibilities...

Hi! A new newbie question: There is a FileDateTime() function in file.bi and vbcompat.bi. Is there an equivalent function supporting file names containing Unicode characters (Windows)? (I suppose it's pointless to ask if there is a function to set the file modification date...) EDITED: In the course...

OK, I understand, thank you verry much, jj2007. Btw: windows.bi includes the function GetFileAttributes() , which returns 16 for an existing folder. And (what a surprise!) this function seems to support Unicode!!! This seems to be the simpliest way... So long! #Define Unicode #Include once "win...

Hi!

I am unable to find out whether ShellExecuteW() returns a usable value.
I would be interested to get the echo of a DOS command, but this probably will be impossible...

So long!

Yessss, that's it!!!

So long!

Btw: Can this be shortened (for a larger number of null characters)?
rpl = rpl + chr(0) + chr(0) + ...

Sorry...sorry...sorry... I reduced my code to a too simplified example. Your answer, badidea, showed me that I located my error in the wrong place. Of course, this is working fine, and I discovered now my error.

Thank you both, badidea & dodicat, for your helpful hints!!!

Another newbie question: I have a string of bytes (data read from a binary file by LoadFile()) in which I have to replace a substring by another string. This other string, rpl, is shorter than the substring, and should be extended to the length of the substring by adding a number of null characters ...

OK, I will test later too. An additional question: With #Define unicode #Include once "windows.bi" #Include once "win/shellapi.bi" Unicode-supporting functions LoadFile() and SaveFile() (and ShellExecuteW()) are provided. As I have now discovered, also DeleteFile() is included. A...

These functions (included in file.bi) seems not to work with file names containing non-ASCII characters.

Where functions can be found which would support file names like "Сергeй.txt"?