Option Compare Database
Option Explicit
' Сазонов М.А.
' M&T (ptnk@mail.ru)
' 12.10.2000
' hwnd - дескриптор окна.
' pszRootPath - Путь к диску,чья Корзина будет освобождаться от файлов.
' Чтобы освободить все Мусорные корзины , установите значение
' равным пустой строке.
' dwFlags - Комбинация флагов
Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Option Compare Database
Option Explicit
' Удаляем содержимое Корзин всех дисков не показывая
' процесса удаления файлов
Dim MT_recycle As Long
MT_recycle = SHEmptyRecycleBin(Form_Корзина.hwnd, "", &H1)
' Удаляем содержимое Корзин всех дисков без показа окна диалога,
' показывающее процесс удаления файлов из корзины
Dim MT_recycle As Long
MT_recycle = SHEmptyRecycleBin(Form_Корзина.hwnd, "", &H2)
' Очистить Корзину без звукового эффекта после удаления файлов
Dim MT_recycle As Long
MT_recycle = SHEmptyRecycleBin(Form_Корзина.hwnd, "", &H4)
Ссылки по теме