Difference between revisions of "ReNamer:Scripts:Using MasterFile"
Jump to navigation
Jump to search
(Bumped up version requirements) |
m (Text replacement - "<source>" to "<syntaxhighlight lang="pascal">") |
||
| Line 13: | Line 13: | ||
Author: Denis Kozlov. Date: 14 Sep 2008. | Author: Denis Kozlov. Date: 14 Sep 2008. | ||
| − | < | + | <syntaxhighlight lang="pascal"> |
const | const | ||
MASK = '*.mp3'; | MASK = '*.mp3'; | ||
Revision as of 15:00, 8 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.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>