You are not logged in.
Hello!
Sorry my bad english
I have 4TB of photos, stored like this:
X:\models\model_name\setnumber\photoname.jpg
Often I have the same X:\models\model_name\setnumber in different sizes
I would like to rename the folder setnumber appending the images size of the set.
I use ReNamer to move the photos a folder \setnum (Image_Width x AndHeight)
using this rule : add prefix ---> \:File_FolderName: (:Image_WidthAndHeight:)\
because all the photos are rectangular, I get 2 folders, one with portrait, the other with landscape oriented photos
Ex:
X:\models\model_name\setnumber (3000x4096)\
X:\models\model_name\setnumber (4096x3000)\
Could you please help me to solve this problem?
I would like the smaller dimension to be first then the larger one (3000x4096) and not (4096x3000)
Thank you in advance,
Tatjana
Offline
I think the easiest would be to use the :Image_Pixels: tag which gives the result of the multiplication
Anyway, y started playing in the PascalScript rule and I ended up doing this script.
Try it. You'll need to insert/move ":File_FolderName:" after it.
var
Large, Small: WideString;
Height, Width: Integer;
begin
Width := StrToIntDef(CalculateMetaTag(FilePath, 'Image_Width'), 0);
Height := StrToIntDef(CalculateMetaTag(FilePath, 'Image_Height'), 0);
If (Width>Height) then
begin
Large := IntToStr(Width);
Small := IntToStr(Height);
end
else
begin
Large := IntToStr(Height);
Small := IntToStr(Width);
end;
FileName := ' (' + Large + 'x' + Small + ')\' + FileName;
end.
If this software has helped you, consider getting your pro version. :)
Offline
Thank you very much, it works perfect!
By the way, if anyone needs to use the script for the exact result I asked, this line
FileName := ' (' + Large + 'x' + Small + ')\' + FileName;
has to be changed to this:
FileName := ' (' + Small + 'x' + Large + ')\' + FileName;
My best regards,
Tatjana
Offline