Создание блок схем по коду Pascal
const

path = 'C:\ss\';
extention = 'jpg';

begin
var files := System.IO.Directory.GetFiles(path,'*.' + extention);
foreach var onefile in files do
begin
var dateFile:= System.IO.File.GetLastWriteTime(onefile);
var newfile := path +format('{0:mmdd}', dateFile) + '.' +extention;
$'{onefile} -> {newfile}'.Println;
System.IO.File.Copy(onefile, newfile);
end;
end.

EvgeshaKhomenco2005    3   15.06.2020 16:25    2