Difference between revisions of "ReNamer:Scripts:Using MasterFile"
Jump to navigation
Jump to search
(Created page with '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 ...') |
(navigation) |
||
| Line 1: | Line 1: | ||
| + | {{Up|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. | 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. | ||
Revision as of 20:22, 23 May 2010
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: 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.