ReNamer:Scripts:Using MasterFile

From den4b Wiki

Jump to: navigation, search
Arrow Return.png ReNamer:Scripts  

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

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: 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 := FileName + ' ' + CalculateMetaTag(MasterFile, TAG);
  end;
end.
Retrieved from "http://www.den4b.com/wiki/ReNamer:Scripts:Using_MasterFile"
Personal tools
Namespaces
Variants
Actions
Navigation
Toolbox
Print/export