Написание bat файла

#include <DateUtils.hpp>
 
bool OneDirectoryAge(String APath, String Ext, int Age) {
    TSearchRec SR;
    bool ignored = false;
    TDateTime n = Now();
 
    if (FindFirst(APath + "\\*.*",
            faReadOnly | faHidden | faSysFile | faArchive | faDirectory, SR) == 0)
 
    {
 
        do {
            if ((SR.Attr & faDirectory) == faDirectory) {
                if ((SR.Name != "..") && (SR.Name != ".")) {
                    ignored = OneDirectoryAge(APath + "\\" + SR.Name, Ext, Age);
                }
            }
            else {
                if (SameText(ExtractFileExt(SR.Name), Ext)) {
                    if (DaysBetween(FileDateToDateTime(SR.Time), n) >= Age)
 
                    {
                        if (DeleteFile(APath + "\\" + SR.Name) == false) {
                            ignored = true;
                        }
 
                    }
 
                }
            }
        }
 
        while (FindNext(SR) == 0);
 
    }
 
    FindClose(SR);
    if ((!ignored) && DirectoryExists(APath)) {
        if (RemoveDir(APath)) {
        }
        else {
        }
    }
    return (!ignored);
}