Удаление папок

← →
Lexa2003 (2003-01-23 22:18) [0]

Здравствуйте.
Как мне удалить папку с файлами и подпапками?

← →
Cosmic © (2003-01-24 10:21) [1]

← →
Reindeer Moss Eater (2003-01-24 10:25) [2]

← →
Smithson © (2003-01-24 10:26) [3]

Последовательно. Сперва файлы в подпапках, потом подпапки, потом саму папку.

← →
ЮРИЙ_К © (2003-01-24 10:29) [4]

В RX есть специальная функция, все рубит без проблем

← →
alena.svt (2003-01-24 10:46) [5]

ЮРИЙ_К © (24.01.03 10:29)
Покажите мне в RX все чтоб рубила!(название)

← →
Игорь Шевченко © (2003-01-24 10:48) [6]

function ClearDir(const Path: string; Delete: Boolean): Boolean;

FileUtil.pas

← →
alena.svt (2003-01-24 10:51) [7]

Игорь Шевченко© (24.01.03 10:48)
Прям на повал рубит и скрытые и системные и занятые другим приложением?

>> alena.svt
Достаточно слов Игорь Шевченко или ешшо ? 8;-)

alena.svt (24.01.03 10:51)

Занятые не рубит никто. А нафига их рубить-то, занятые ?

← →
AndreiR (2003-01-24 12:46) [10]

function MyDeleteFiles(PathMask: String; FilesOnly: Boolean): Integer;
var
OpStruc: TSHFileOpStruct;
frombuf: Array [0..MAX_PATH] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
StrPCopy(frombuf, PathMask);
with OpStruc do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := @frombuf;
pTo := Nil;
if FilesOnly then
fFlags := FOF_NOCONFIRMATION + FOF_FILESONLY
else
fFlags := FOF_NOCONFIRMATION;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
Result := ShFileOperation(OpStruc)
end;

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