ReNamer:Scripts:Using MasterFile

This code will find a first file in the folder which matches MASK, and will append value of a TAG of that file to the folder's name.

For the folder "Artist - Title" and the mp3 file inside that folder with the Year tag set to "1993" the script will produce output "Artist - Title 1993".

Tested

• ReNamer 5.74.4 Beta

Code

Author: Denis Kozlov. Date: 14 Sep 2008.

const
  MASK = '*.mp3';
  TAG = 'ID3_Year';

var
  MasterFile: WideString;

function FindMasterFile(const Folder: WideString): WideString;
var
  Files: TWideStringArray;
begin 
  Result := '';
  SetLength(Files, 0);
  WideScanDirForFiles(Folder, Files,
    False, False, False, MASK);
  if Length(Files) > 0 then
    Result := Files[0];
end;

begin
  if WideDirectoryExists(FilePath) then
  begin
    MasterFile := FindMasterFile(FilePath);
    if MasterFile <> '' then
      FileName := FileName + ' ' + CalculateMetaTag(MasterFile, TAG);
  end;
end.