Очистка корзины

Текст модуля:
 

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)


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8173