Difference between revisions of "ReNamer:Scripts:Date and Time"
Jump to navigation
Jump to search
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
m (Text replacement - "</source>" to "</syntaxhighlight>") |
||
| Line 17: | Line 17: | ||
WideExtractFileExt(FileName); | WideExtractFileExt(FileName); | ||
end. | end. | ||
| − | </ | + | </syntaxhighlight> |
Latest revision as of 15:02, 8 February 2017
This script demonstrates how to extract file dates, format them, and put them into the filename.
Code
Author: Denis Kozlov. Date: 13 February 2007. Append last modified date to the end of the filename, in a dd-mmm-yyyy format.
var
DateTime: TDateTime;
begin
DateTime := FileTimeModified(FilePath);
FileName := WideExtractBaseName(FileName) +
FormatDateTime(' (dd-mmm-yyyy)', DateTime) +
WideExtractFileExt(FileName);
end.