Дмитрий,ещё раз спасибо!
Если есть время,ответь пожалуйста на пару вопросов.
1.Что нужно прописать в примере за место "ВАСИЛИЙ",
чтоб удалять выбранные директории(папки) из TableGrid?
procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
var
sDir: string;
begin
sDir := ExtractFilePath(Application.ExeName)+'ВАСИЛИЙ\';
if not DeleteDirWithFiles(sDir) then
ShowMessage('Can''t remove directory');
end;
2.Как в этом скрипте прописать одну общую папку,в которой
будут создаваться все последующие папки с файлами?
procedure vvod_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
vvod.DBFile1.dbCopyTo:= vvod.Edit1.Text+'\' +FormatDateTime('dd.mm.yyyy - hhчас mmмин', now)+'\';//Создаёт папку с именем архива
end;
Второй вопрос отменяется. У меня получилось так: Добавил ( 'ARHIV\' + ) перед ( vvod.Edit1.Text )
procedure vvod_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
vvod.DBFile1.dbCopyTo:= 'ARHIV\' +vvod.Edit1.Text+'\' +FormatDateTime('dd.mm.yyyy - hhчас mmмин', now)+'\';//Создаёт папку с именем архива
end;
Остался первый вопрос.Как удалить папки с файлами из общей папки ARHIV,не удаляя саму общую папкуARHIV .
sDir := ExtractFilePath(Application.ExeName)+' Какие данные сюда внести? ';