Интернет-конференция

Интернет-конференция (http://dnstechno.ru/index.php)
-   Руководства по microsoft windows (http://dnstechno.ru/forumdisplay.php?f=69)
-   -   как удалить неудаляемую папку? (http://dnstechno.ru/showthread.php?t=647)

Eternity 12.02.2015 19:58

как удалить неудаляемую папку?
 
Если процесс установки какого-либо приложения у Вас пропал свет или Вы вдруг решили прервать установку, на диске иногда остаются папки со случайными именами вида [ДИСК]:\[НАБОР СЛУЧАЙНЫХ БУКВ И/ИЛИ ЦИФР], которые не удаётся удалить штатными средствами.
Можно также удалить прочую вирусную нечесть

В таких случаях можно воспользоватся следующим скриптом для его выполнения необходима утилита AVZ

Код:

var
Directory : string;
begin
Directory := InputBox('Внимание', 'Введите полный путь к удаляемой папке:', 'Например: D:\127a$5376d86g45c3');
if MessageDLG('Вы действительно хотите безвозвратно удалить папку "'+Directory+'" ?', mtConfirmation, mbYes+mbNo, 0) = 6 then
 begin
 SetAVZGuardStatus(True);
 DeleteFileMask(Directory,'*.*',true);
 DeleteDirectory(Directory);
 BC_ImportAll;
 ExecuteSysClean;
 BC_Activate;
 RebootWindows(true);
 end;
end.


После запуска скрипта Вам будет предложено, ввести полный путь к удаляемой папке, напр. D:\127a$5376d86g45c3.
После ввода пути нажмите ОК.
Затем Вы должны будете ещё раз подтвердить её удаление.
Не ошибитесь в имени: удалённое этим скриптом удалено навсегда!!!
Удаление несуществующей папки не приводит к сообщению об ошибке.

Примечание . Скрипт можно запускать так же в программах АVPTool, KAV/KIS от версии 8.


Текущее время: 00:28. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot