ReNamer:Scripts:Using MasterFile

From den4b Wiki
Revision as of 15:00, 8 February 2017 by Den4b (talk | contribs) (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">")
Jump to: navigation, search

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.

<syntaxhighlight lang="pascal"> 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. </source>