Difference between revisions of "ReNamer:Scripts:Using MasterFile"

From den4b Wiki
Jump to: navigation, search
(navigation)
(Replaced the use of TStringsArray with TWideStringArray.)
Line 23: Line 23:
 
function FindMasterFile(const Folder: WideString): WideString;
 
function FindMasterFile(const Folder: WideString): WideString;
 
var
 
var
   Files: TStringsArray;
+
   Files: TWideStringArray;
 
begin  
 
begin  
 
   Result := '';
 
   Result := '';

Revision as of 11:31, 5 February 2017

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.50

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.