ReNamer script: Name folders "$artist - $year - $album" according to ID3 the tags of the first contained *.MP3 (http://www.den4b.com/?x=products&product=renamer), ALSO rename "Artist - Album" to "Artist - Year - Album"

renamer-albums-id3.pas

const
  MASK = '*.mp3';
 
var
  MasterFile: WideString;
 
function FindMasterFile(const Folder: WideString): WideString;
var
  Files: TStringsArray;
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 := CalculateMetaTag(MasterFile, 'ID3_Artist')
        + ' - ' + CalculateMetaTag(MasterFile, 'ID3_Year')
        + ' - ' + CalculateMetaTag(MasterFile, 'ID3_Album');
  end;
end.

renamer-artist_album-2-artist_year_album.pas

const
  MASK = '*.mp3';
  TAG = 'ID3_Year';
 
var
  MasterFile: WideString;
  YearString: WideString;
  DashPos: Integer;
 
function FindMasterFile(const Folder: WideString): WideString;
var
  Files: TStringsArray;
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
    begin
      YearString := CalculateMetaTag(MasterFile, TAG);
      if YearString <> '' then
        if YearString <> ' ' then
        begin
          DashPos := WidePos(' - ', FileName);
          FileName := WideCopy(FileName, 1, DashPos - 1) +
            ' - ' + 
            YearString + 
            WideCopy(FileName, DashPos, WideLength(FileName) - DashPos + 1);
        end;
      end;
    end;
  end.
end.