как удалить папку

@John_Pa9JIbHuK · Регистрация: 31.03.2009

Author24 — интернет-сервис помощи студентам

Скажем в папке есть файлы, это понятно что сначало мы удаляем файлы, а потом удаляем саму папку, а если в этой папке есть еще пара вложеных папок то как их определить и удалить файлы оттуда???

@lexus_ilia · 10.07.2009, 03:32

Я не делал на Паскале удаление папок, но могу навести на мысль. Во время поиска по папкам используется рекурсивный алгоритм, он предельно прост начинаем выполняет удаление файлов, если это папка то пройти внутрь папки и начать удаление в ней, если это файл то удалить его, можно использовать такой способ и для удаления папок с подкатологами.

@Phantom · 10.07.2009, 12:51

Pascal

procedure RemoveDir(path: string);
var
  sr: TSearchRec;
begin
  if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then
    repeat
     if (((sr.Name='.') or (sr.Name='..'))=false) then
      if sr.Attr=faDirectory then RemoveDir(path + '\' + sr.name)
      else DeleteFile(path + '\' + sr.name)
    until FindNext(sr) <> 0;
  FindClose(sr);
  RemoveDirectory(PChar(path));
end;

Вот такая функция. Это для Delphi, но в pascal тоже должна работать.

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
		1
	как удалить папку 09.07.2009, 23:57. Показов 5064. Ответов 2 Метки нет (Все метки) Скажем в папке есть файлы, это понятно что сначало мы удаляем файлы, а потом удаляем саму папку, а если в этой папке есть еще пара вложеных папок то как их определить и удалить файлы оттуда??? 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	10.07.2009, 03:32	2
	Я не делал на Паскале удаление папок, но могу навести на мысль. Во время поиска по папкам используется рекурсивный алгоритм, он предельно прост начинаем выполняет удаление файлов, если это папка то пройти внутрь папки и начать удаление в ней, если это файл то удалить его, можно использовать такой способ и для удаления папок с подкатологами. 0

	10.07.2009, 12:51

как удалить папку

Решение