Какпрограммно удалить каталог

← →
GEN++ © (2006-01-10 16:09) [0]

Здраствуйте помогите начинающему!!!
как можно программно удалить каталог, желательно покажите на примери

← →
Johnmen © (2006-01-10 16:12) [1]

RemoveDir + F1

← →
Игорь Шевченко © (2006-01-10 16:22) [2]

Если с файлами и подкаталогами, я так делал:

procedure Utils_DeleteDirectoryTree (Directory: PChar);
var
FindHandle: THandle;
FindData: WIN32_FIND_DATAA;
begin
if not Assigned(Directory) or (Directory[0] = #0) or
not SetCurrentDirectoryA (Directory) then
Exit;
FindHandle := FindFirstFileA ("*", FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
repeat
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)
= 0 then begin
SetFileAttributesA (FindData.cFileName, FILE_ATTRIBUTE_NORMAL);
DeleteFileA (FindData.cFileName);
end else if (lstrcmpA (FindData.cFileName, ".") <> 0) and
(lstrcmpA (FindData.cFileName, "..") <> 0) then
Utils_DeleteDirectoryTree (FindData.cFileName);
until not FindNextFileA (FindHandle, FindData);
Windows.FindClose (FindHandle);
SetCurrentDirectoryA ("..");
SetFileAttributesA (Directory, FILE_ATTRIBUTE_NORMAL);
RemoveDirectoryA (Directory);
end;

← →
GEN++ © (2006-01-10 16:22) [3]

чето всеравно нечего не понятно

← →
Кефир87 © (2006-01-10 16:46) [4]

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

← →
Игорь Шевченко © (2006-01-10 16:48) [5]

GEN++ © (10.01.06 16:22) [3]

Проверка на дорогах ? :)

а можно какнибудь удалить все вайлы в заданной папке но при этом не удаляя самой папки?

Можно. Внимательно изучи код, приведенный Игорем Шевченко и почитай хелп 8)

Какпрограммно удалить каталог Найти похожие ветки