File modification time: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fix file open error handling) |
No edit summary |
||
Line 787: | Line 787: | ||
print(path .. " does not exist.") |
print(path .. " does not exist.") |
||
end</lang> |
end</lang> |
||
=={{header|M2000 Interpreter}}== |
|||
Most of the file statements/functions use current directory as path. |
|||
<lang M2000 Interpreter> |
|||
Module CheckIt { |
|||
\\ without *for wide output* we open for ANSI (1 byte per character) |
|||
\\ but here we need it only for the creation of a file |
|||
Open "afile" for output as #f |
|||
Close #f |
|||
Print file.stamp("afile") 'it is a number in VB6 date format. |
|||
\\ day format as for Greece |
|||
Print Str$(File.Stamp("afile"),"hh:nn:ss dd/mm/yyyy") , "utc write time - by default" |
|||
Print Str$(File.Stamp("afile" ,1),"hh:nn:ss dd/mm/yyyy") , "utc write time, 1" |
|||
Print Str$(File.Stamp("afile" ,-1),"hh:nn:ss dd/mm/yyyy"), "local write time, -1" |
|||
Print Str$(File.Stamp("afile" ,2),"hh:nn:ss dd/mm/yyyy"), "utc creation time, 2" |
|||
Print Str$(File.Stamp("afile" ,-2),"hh:nn:ss dd/mm/yyyy"), "local creation time, -2" |
|||
} |
|||
Checkit |
|||
</lang> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |