% исправление имён файлов FRG
% сдвиг суток = 7168

% 12.01.2023 - заменил "\" в путях на "/" - перспектива Linux

dTcorr=7168;

Tc=datenum(2025,10,15);

path_old_file=['d:/paratunka/data/frg/' datestr(Tc,'yyyy') '/0000arc/'];
path_new_file=['d:/paratunka/data/frg/' datestr(Tc,'yyyy') '/' datestr(Tc,'yyyymm') '/'];

Ti=Tc-dTcorr;   % дата в именах исходных файлов

file_old_sec=[path_old_file datestr(Ti,'yyyymmdd') '.sec'];
file_old_min=[path_old_file datestr(Ti,'yyyymmdd') '.min'];

file_old_new_sec=[path_old_file datestr(Ti,'yyyymmdd') '_' datestr(Tc,'yyyymmdd') '.sec'];
file_old_new_min=[path_old_file datestr(Ti,'yyyymmdd') '_' datestr(Tc,'yyyymmdd') '.min'];

file_new_sec=[path_new_file datestr(Tc,'yyyymmdd') '.sec'];
file_new_min=[path_new_file datestr(Tc,'yyyymmdd') '.min'];

% делаем копию файлов со старой и новой датами в имени
fid=fopen(file_old_sec,'r');
if fid==-1 
    disp(['!!! Не могу найти файл ... ' file_old_sec ' ... пропускаю'])
else
    tmp=fread(fid); fclose(fid);
    disp(['!!! Копирую ... ' file_old_sec ' -> ' file_old_new_sec])
    copyfile(file_old_sec,file_old_new_sec);
    disp(['!!! Переименовываю ... ' file_old_sec ' -> ' file_new_sec])
    fid=fopen(file_new_sec,'w'); fwrite(fid,tmp); fclose(fid);
end
fid=fopen(file_old_min,'r');
if fid==-1 
    disp(['!!! Не могу найти файл ... ' file_old_min ' ... пропускаю'])
else
    tmp=fread(fid); fclose(fid);
    disp(['!!! Копирую ... ' file_old_min ' -> ' file_old_new_min])
    copyfile(file_old_min,file_old_new_min);
    disp(['!!! Переименовываю ... ' file_old_min ' -> ' file_new_min])
    fid=fopen(file_new_min,'w'); fwrite(fid,tmp); fclose(fid);
end
