Anonymous user
File modification time: Difference between revisions
no edit summary
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fix file open error handling) |
No edit summary |
||
Line 787:
print(path .. " does not exist.")
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}}==
| |||