создание лог файла

Доброе утро, коллеги.   Подскажите, пожалуста, как более грамотно организовать логирование событий. При размере файла 2мБ приложение начинает заметно тормозить. function AppLogMy(app,text)...

Доброе утро, коллеги.

 

Подскажите, пожалуста, как более грамотно организовать логирование событий. При размере файла 2мБ приложение начинает заметно тормозить.

function AppLogMy(app,text)
            if exist(fullfile(app.folderWay,'logs'),'dir')~=7
                mkdir(fullfile(app.folderWay,'logs'),'dir')
            end
            
            temp=date;
            fid=fopen(fullfile(app.folderWay,'logs',strcat(temp(1:end),'_AppLog.log')),'r');%открытие файла
            if fid==-1
                fid=fopen(fullfile(app.folderWay,'logs',strcat(temp(1:end),'_AppLog.log')),'w+');%открытие файла
            end
            file = textscan(fid,'%s','Delimiter',{'\b'});%чтение в cell
            fclose(fid);% закрытие файла
            %%запись в файл
            fid1=fopen(fullfile(app.folderWay,'logs',strcat(temp(1:end),'_AppLog.log')),'w');%открытие файла
            fprintf(fid1,'%s\r\n',file{1}{:},datetime('now','Format','yyyy-MM-dd HH:mm:ss.SSS'), text);
            fclose(fid1);
           
            if contains(app.ErrorReportSwitch.Value, 'On')==1
                LogInTextArea(app, text)
            end
        end