ReNamer:Scripts:Index filenames
Jump to navigation
Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Demonstrates how to insert an incrementing number into the filename.
Code 1
Author: Denis Kozlov. Date: 13 February 2007.
Replaces the whole filename with the incrementing number.
var
I: Integer;
begin
I := I + 1;
FileName := IntToStr(I);
end.
Code 2
Author: Denis Kozlov. Date: 8 September 2010.
Append an incrementing number surrounded with brackets to the end of the base name.
var
I: Integer;
begin
I := I + 1;
FileName := WideExtractBaseName(FileName) + ' (' +
IntToStr(I) + ')' + WideExtractFileExt(FileName);
end.