Flasher, номер может меняться. Можно тупо перебирать, пока не найдётся вариант «О&чистить корзину», затем выполнить его…

Номер, однозначно, может меняться (у меня, как ни странно, по действию #2 для Корзины будет запущен Far Manager), но ничего перебирать не надо — оказывается, ShellFolderItem.InvokeVerb() принимает и локализованные названия действий (надо только не забывать, что они могут содержать амперсанд).

В таком случае совсем не так - WebBrowser здесь не причём:

Да вот нет. Та же песня. Работает только через GetObject("new:, иначе по закрытию скрипта схлопывается.

У меня работает без него.

Вариант без окна запроса:

With CreateObject("Scripting.FileSystemObject")
For Each i in CreateObject("Shell.Application").NameSpace(&Ha&).Items
  If i.Type = "File folder" Then .DeleteFolder(i.Path) Else .DeleteFile(i.Path)
Next : End With

А ещё лучше так:

Set Items = CreateObject("Shell.Application").Namespace(&Ha&).Items
If Items.Count > 0 Then
  With CreateObject("Scripting.FileSystemObject")
    Path = .GetParentFolderName(Items.Item(0).Path)
    .DeleteFolder Path & "\*", 1 : .DeleteFile Path & "\*", 1
  End With
End If

А вот shell:RecycleBinFolder в XP по всей логике не заработает.

Проверял на XP SP3. Насколько помню " shell:RecycleBinFolder" работало в SP1, "Empty" в XP SP1 пока проверить не могу, т.к. нахожусь вне дома, смогу проверить через пару недель.

В таком случае совсем не так - WebBrowser здесь не причём:

CreateObject("Shell.Application").NameSpace("::{645FF040-5081-101B-9F08-00AA002F954E}").Self.InvokeVerb "Empty"

(

Естественно, чтобы был .Document нужен Navigate().)

Option Explicit

Dim objWebBrowser
Dim objDocument

Set objWebBrowser = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
WScript.Echo TypeName(objWebBrowser)

Set objDocument = objWebBrowser.document
WScript.Echo TypeName(objDocument)

WScript.Quit 0

Ошибка при попытке обращения к «.document».

Команды shell:, НСЯП, работать начали с Висты, отсюда такая мысль..

Гораздо раньше .

У меня, на Windows XP, порождает ошибку при попытке обращения к «.document».

У Вас какая ОС?

Win 7 x32 в текущий момент.

Команды shell:, НСЯП, работать начали с Висты, отсюда такая мысль..

А, вообще понятно почему не работает. Нужно так:

With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
  .document.Application.NameSpace("shell:RecycleBinFolder").Self.InvokeVerb("Empty")
  .Quit
End With

У меня он не срабатывает

У Вас какая ОС? У меня пример коллеги wisgest работает.

У меня работает. Как раз Windows XP SP3: WSH: перечень предопределённых символьных имён Shell.Application — Серый форум.

В данном случае должен бы понравиться:

Я не про то. Про это:

Спасибо, ясно. Жаль.

P.S. Если что ещё интересное угадаете — пишите.

Запрос на подтверждение, наверное, не нравится .

В данном случае должен бы понравиться:

Меня этот вопрос тоже весьма занимает, помнится, я даже его хотел как нибудь задать. В данном случае я просто угадал.