найти папку и удалить ее

[mitiay]

Подскажите как найти в папку и удалить ее.
Допустим папка лежит в D:\1\название папки

Как удалить я знаю

function DelDir(Const dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

А вот как найти название папки и удалить ее не знаю)

[Serge_Bliznykov]

как найти название папки

погодите. Что Вы собрались искать? Вы не знаете, как называется папка?
Как же Вы её найдёте, если не знаете, как её искать?
А почему её нужно удалить?
Или задача стоит совсем другая - удалить все папки из папки D:\1\ ?
а если они не пустые? а если их много (и они вложенные) - всё равно удалять?

Сформулируйте задачу точнее и конкретней, больше шансов получить ответ.

[mitiay]

Сообщение от Serge_Bliznykov

погодите. Что Вы собрались искать? Вы не знаете, как называется папка?
Как же Вы её найдёте, если не знаете, как её искать?
А почему её нужно удалить?
Или задача стоит совсем другая - удалить все папки из папки D:\1\ ?
а если они не пустые? а если их много (и они вложенные) - всё равно удалять?

Сформулируйте задачу точнее и конкретней, больше шансов получить ответ.

Путь до папки я знаю.А вот название в D:\1\ ??? постоянно меняются
По этому нужно удалить все папки в D:\1\...

[Аватар]

FindFirst, FindNext, FindClose - ищи все файлы и подкаталоги в папке и удаляй что нужно удалить

[Serge_Bliznykov]

просто оставлю этот здесь:

используя вышеуказанную процедуру DelDir все папки в указанном каталоге можно удалить так:

procedure DelSubDirs(const BasePath: string);
Var SR:TSearchRec;
    FindRes:Integer;
begin
   FindRes:=FindFirst(BasePath+'*.*', faAnyFile, SR);
   While FindRes=0 do
   begin
    if ((SR.Attr and faDirectory)=faDirectory) and (SR.Name<>'.') and (SR.Name<>'..') then
      begin
        Application.ProcessMessages;
        DelDir(BasePath+SR.Name+'\');
      end;
      FindRes:=FindNext(SR);
   end;
   FindClose(SR); 
end;

очевидно, что код будет удалять только вложенные папки (со всем их содержимым), а файлы в указанной папке все останутся.

p.s. Код не проверял!