| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление файлов [D5, Win95/98]

Rammst ©   (2002-05-19 11:02:00) 

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

---

sizmrebi   (2002-05-20 09:22:00) [1]

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

Syntax

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

---

Song   (2002-05-19 17:13:00) [2]

В FAQ есть.

---

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

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

---

}{enon   (2002-05-19 12:56:00) [4]

procedureTForm1.Button1Click (Sender: TObject);
var
fa: TSearchRec;
f: File;
begin
ifFindFirst("C:\Мои документы\",faAnyFile,fa)=0 then
begin
assignfile(f,fa.Name);
erase(f);
whilefindnext(fa)<>0 do
begin
assignfile(f,fa.Name);
erase(f);
end;
findclose(fa);
end;
end;
В принципе должно работать, хотя FindFirst может настраиваться подругому.

---

Наверх