Очищення корзини





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

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)


Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*