Случается нужда какой-нибудь файл или папку быстро закинуть в архив и удалить (старье какое-нибудь, например). Сделать это практически в один клик поможет скрипт. Я его предлагаю закинуть в меню Send To... (Отправить). Файлы или каталоги обрабатываются - без разницы. Можно и списком - будет по архиву на каждый элемент. Единственное чего не хватает это визуализации процесса...

Требует наличие архиватора 7-Zip, но можно адаптировать и под другой.

set WshShell = WScript.CreateObject("WScript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")

'Разбираем параметры командной строки
set Args = WScript.Arguments

For i = 0 to Args.Count - 1
 ZipItem(Args(i))
next

Sub ZipItem(AName)
 Cmd = """C:\Program Files\7-Zip\7z"" a " & """" & AName & ".7z "" " & """" & AName & """"
 'WScript.Echo Cmd
 ECode = WshShell.run(Cmd, 0, true)
 if (ECode = 0) then
 if fso.FolderExists(AName) then
 fso.DeleteFolder(AName)
 else
 fso.DeleteFile AName, True
 End if
 else
 WScript.Echo "Ошибка архивации!"
 End If
End Sub 'ZipItem