Copying a file timestamp to another file

[wallgod]

How do I copy a file's timestamp (created, accessed, modified) from one file to another?
Here's what I tried, but it doesn't work:

Code: Select all

Procedure CopyFileStamp(file1.s, file2.s)
    Protected created=GetFileDate(file1, #PB_Date_Created)
    Protected accessed=GetFileDate(file1, #PB_Date_Accessed)
    Protected modified=GetFileDate(file1, #PB_Date_Modified)
    SetFileDate(file2,created,created)
    SetFileDate(file2,accessed,created)
    SetFileDate(file2,modified,created)
EndProcedure

What am I doing wrong?

[Vera]

Hello,

well I didn't build a running example with your snippet, but it looks as if you just missed the DateType:

Code: Select all

SetFileDate(file2, #PB_Date_Created, created)
SetFileDate(file2, #PB_Date_Accessed, accessed)
SetFileDate(file2, #PB_Date_Modified, modified)

greetings ~ Vera

[wallgod]

Oh whoops! That did it. Thank you.