Удаление файлов из корзины

[LocKtaR-o-DarK]

Volniy
можно даунлодером выкачать только архив nircmd.zip 23,1 КБ (23 694 байт), содержащий nircmd.exe 25,5 КБ (26 112 байт), этого будет достаточно

[Sam Dark]

rbc тоже обновился. Консольных окон можно теперь не показывать без сторонних программ.

[LocKtaR-o-DarK]

Код: Выделить всё

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\{645FF040-5081-101B-9F08-00AA002F954E}]

это добавит в контекстное меню всех папок и файлов пункт "Очистить корзину"
после применения отпадает необходимость пользования для этой цели сторонними утилитами и написания кнопок для тотала

[Sam Dark]

Не согласен. Я пользуюсь контекстным меню для других целей и лишние пункты там мне ни к чему.

[aLexx]

Кстати, давно хотел спросить, а что, если установлена "Norton Protection"?
Как в этом случае очищать не только корзину, но и защищённые Нортоном файлы?

[LocKtaR-o-DarK]

Не согласен. Я пользуюсь контекстным меню для других целей и лишние пункты там мне ни к чему.

А я не согласен с тем, что для каждой системной операции надо держать свою утилиту, уметь ею пользоваться, правильно запускать и, наконец, тратить под нее дисковое пространство...
В общем, спорить не о чем, предлагаю вариант, выбор за пользователем.

Кстати, давно хотел спросить, а что, если установлена "Norton Protection"?
Как в этом случае очищать не только корзину, но и защищённые Нортоном файлы?

а ты потестируй, что в этом сложного?
заодно и нам расскажешь

[aLexx]

Не-а... "Очистить Козину" имеется, а вот про файлы, защищённые Норотоном, ни слова.

[bbcby]

А не проще ли правой кнопкой мыши по кнопке F8 в TC?

[Flasher]

bbcby
Проще чем что? Нажатие по одной кнопке/горячей клавише?... Плюс ко всему, не все эту панель функциональных кнопок используют, т.е. она может быть попросту скрыта.
У меня такой код:

Код: Выделить всё

TOTALCMD#BAR#DATA
Recycle_Bin_Cleaner.exe
/h /c /p /a
Icons\Recycle-bin-empty.ico
Очистить корзину
%COMMANDER_PATH%\Utils
0
-1

[Flasher]

Решил вытащить из закромов:

Код: Выделить всё

'====== VBS ======
' Очистить корзину
'===== Flasher © =
Option Explicit: Dim WSS, Par, Str, W, i, L, Title, A
Set WSS = CreateObject("WScript.Shell")
On Error Resume Next
Par = WSS.RegRead("HKLM\SOFTWARE\Microsoft\PowerShell\3\PowerShellEngine\PowerShellVersion")
If Err.Number = 0 Then If Par >= "5" Then _
WSS.Run "powershell.exe -nologo -noninteractive -command Clear-RecycleBin -Force", 0 : WSH.Quit
On Error GoTo 0
Par = 1050 : Str = 8
With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
  With .document.Application.NameSpace(10)
    If .Items.Count = 1 Then Par = 1055 : Str = 13
    .Self.InvokeVerb "Empty"
  End With : .Quit
End With
With CreateObject("CDO.Message").AddAttachment("res://shell32.dll/6/" & Par).GetDecodedContentStream
  .Type = 1
  For i = 0 To Str
    L = AscB(.Read(2)) * 2 : If L > 0 Then Title = CStr(.Read(L))
  Next
End With
With WSS
  Do : A = .AppActivate(Title) : Loop Until A
  .SendKeys "~"
End With : Set WSS = Nothing

[imig73]

Flasher
Давно мечтал такой скрипт заиметь, но строка 6 у меня не работает. 3 физ. диска с несколькими разделами Win10 x64.

[Flasher]

imig73
А если через %SystemRoot%\SysWOW64\wscript.exe ?
На 10-ке ещё так можно:

Код: Выделить всё

CreateObject("WScript.Shell").Run "powershell.exe -nologo -noninteractive -command Clear-RecycleBin -Force", 0

[imig73]

Flasher
Да код выше на 10-ке работает без вопросов, но вот на 7-ке x32 уже нет. Добавить бы универсальности для XP, 7, 8 и 10 и будет шоколадно.

[Flasher]

imig73
Так а по первому вопросу что?

[imig73]

Flasher
Через SysWOW64\wscript.exe та же ошибка как на скрине.
И ещё окно с библиотеками открывается.