Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
Вниз
Какпрограммно удалить каталог Найти похожие ветки
← →
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]
Проверка на дорогах ? :)
← →
GEN++ © (2006-01-10 16:54) [6]а можно какнибудь удалить все вайлы в заданной папке но при этом не удаляя самой папки?
← →
Кефир87 © (2006-01-10 17:02) [7]Можно. Внимательно изучи код, приведенный Игорем Шевченко и почитай хелп 8)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.066 c
