Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Удаление файлов   Найти похожие ветки 

 
Rammst   (2002-05-19 11:02) [0]

Hello ALL! Как, например, из папки Мои документы удалить все файлы(не помещая в корзину)?


 
}{enon ©   (2002-05-19 12:56) [1]

procedure TForm1.Button1Click (Sender: TObject);
var
fa: TSearchRec;
f: File;
begin
if FindFirst("C:\Мои документы\",faAnyFile,fa)=0 then
begin
assignfile(f,fa.Name);
erase(f);
while findnext(fa)<>0 do
begin
assignfile(f,fa.Name);
erase(f);
end;
findclose(fa);
end;
end;

В принципе должно работать, хотя FindFirst может настраиваться подругому.


 
Rammst   (2002-05-19 14:07) [2]

Не работает
HELP!!!!!!!!!!!


 
Song ©   (2002-05-19 17:13) [3]

В FAQ есть.


 
sizmrebi ©   (2002-05-20 09:22) [4]

Deletes all items from a folder without deleting the folder itself.

Syntax

HRESULT EmptyFolder(ULONG ulUIParam, LPMAPIPROGRESS lpProgress, ULONG ulFlags)




Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
6-97372
новенький в Делфи
2002-03-21 00:14
2002.05.30
как узнать IP по Host-у


1-97226
Dr.Pipe
2002-05-18 20:22
2002.05.30
Помогите с двумя формами


8-97360
Дархан
2001-12-30 20:24
2002.05.30
Звук


3-97186
weak
2002-05-08 11:56
2002.05.30
создание модального окна


1-97307
Beginner
2002-05-19 13:26
2002.05.30
Как определить програмно WinNT