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

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

Подскажите, пожалуста, как более грамотно организовать логирование событий. При размере файла 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