Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

---

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

F8

---

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

F1

---

← →
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)
Прям на повал рубит и скрытые и системные и занятые другим приложением?

---

← →
ЮРИЙ_К   (2003-01-24 10:55) [8]

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

---

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

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c