Bad programmers worry about the code. Good programmers worry about data structures and their relationships
среди успешных людей я не встречала нытиков
Барбара Коркоран
Нашёл ПЛК 100 залил проект -вроде работает. Видно действительно что-то с файловой системой у ПЛК150. Но есть вопрос. Написал prg по удалению файлов. Работает.
PROGRAM Delite_file
VAR
Diff_time:TIME:=t#45d;
_Diff_time:TIME:=t#45d;
Current_day, last_day, _last_day: DATE;
END_VAR
(*Удаление лишних файлов *)
last_day:=DT_TO_DATE (DateTime - Diff_time); (*Находим день отстоящий на 45 дней назад*)
strFileName:= DATE_TO_STRING (last_day); (*Присваиваем имени файла этот день. Для этого преобразуем в Стринг*)
SysFileDelete(strFileName); (*Удаляем файл старее 45 дней*)
(*Повторное удаление в случае отключения ПЛК на срок до 90 дней*)
_last_day:=last_day - _Diff_time; (*Находим день отстоящий на 90 дней назад*)
strFileName:= DATE_TO_STRING ( _last_day ); (*Присваиваем имени файла этот день. Для этого преобразуем в Стринг*)
SysFileDelete(strFileName); (*Удаляем файл старее 90 дней*)
Может кто подскажет как это сделать более изящно. Может вызвать как-то список всех файлов. Наподобии как ПЛК Браузере или ещё как.. Спасибо
Последний раз редактировалось Safron; 03.11.2014 в 11:31.