Текущий архив: 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.012 c