вся проблема чтоб файл создавался без диалогов в автомате и именем файла было время его создания и вот надо научиться писать в файл более одной строки
чтоб потом через заданый промежуток удалялся устаревший на три дня файл или папка что получиться так и будет (я написал кусок который создает по таймеру папку с именем-число.месяц.год)
а как его делать файл?????
var
f: TextFile;
name: String[10];
j: integer;
begin
createdir('c:\base');
if createdir('c:\base\'+DateToStr(Date)) = true then ---- как потом имя папки передать в путь к файлу??
showmessage('папка создана');
name := 'c:\base\'+TimeToStr(Time)+'.txt';-------- создает файл без расширения вообще да и время в формате часы минуты секунды не выходит просто час ладно бы хоть текстовый файл создавался
AssignFile(f, name);
{$I-}
Rewrite(f);
CloseFile(f);
end;
правда как потом организовать поиск устаревших чтоли всю папку гробить не думал пока
думаю проще всего взять имя папки и сравнить с датой минус нужный период гдето видел как это сделать если нетрудно
поправь там будет if strtodate(имя папки)=(data-n) then forcedelet or forcedirectory?????
|