Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
ВнизУдаление файлов. Найти похожие ветки
← →
Леонид Федьков (2002-02-07 11:04) [4]Это проверено и работает !
procedure TDataModule1.EmptyDir(Const Path : String);
{Удаление всех файлов из каталога}
var
SearchRec: TSearchRec;
Found : Integer;
If_tmp : array[0..80] of Char;
begin
Found := FindFirst(Path+"*.*", faAnyFile, SearchRec);
while Found = 0 do
begin
StrPCopy(If_tmp,Path+SearchRec.Name);
DeleteFile(If_tmp);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c