Текущий архив: 2003.06.26;
Скачать: CL | DM;
Вниз
удалить папку Найти похожие ветки
← →
comintegrator (2003-06-14 19:45) [0]народ ! подскажите плиз как на дельфи программно удалить папку?
← →
Pesh (2003-06-14 20:01) [1]пустую папку можно похерить так:
RemoveDirилиRemoveDirectory(см. Help)
Не пустую нужно сначала очистить от файлов (DeleteFile(fName:string))
А файлы перед тем как покоцать рекомендуется очистить от ненужных атрибутов типа System, ReadOnly, мешающих удалению:
procedure vClearAttr ( sFName:string);
var iAttr:Integer;
begin
iAttr:=FileGetAttr(sFName);
if (iAttr and faHidden) <>0 then iAttr:=iAttr - faHidden;
if (iAttr and SysUtils.faReadOnly) <>0 then iAttr:=iAttr - faReadOnly;
if (iAttr and faSysFile) <>0 then iAttr:=iAttr - faSysFile;
if (iAttr and faArchive) <>0 then iAttr:=iAttr - faArchive;
FileSetAttr(sFName, iAttr);
end;
← →
Song (2003-06-14 21:59) [2]ShFileOperation()
Страницы: 1 вся ветка
Текущий архив: 2003.06.26;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.037 c
