Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic .NET - Система

Все примеры / Система

Как очистить корзину?

Автор: Неизвестно | добавлено: 05.03.2010, 20:13 | просмотров: 1076 (1+) | комментариев: 0 | рейтинг: *x0
В примере продемонстрирован простой метод очистки корзины Windows средствами Visual Basic .NET.

Инструкции

Dim Action As New ShellActions
Action.EmptyRecycleBin()

Код

Public Class ShellActions 

Shared Function _ 
SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _ 
ByVal dwFlags As Integer) As Integer 
End Function 

Sub New() 
EmptyRecycleBin() 
End Sub 

Sub EmptyRecycleBin(Optional ByVal rootPath As String = "", _ 
Optional ByVal noConfirmation As Boolean = True, Optional ByVal NoProgress _ 
As Boolean = True, Optional ByVal NoSound As Boolean = True) 

Const SHERB_NOCONFIRMATION = &H1 
Const SHERB_NOPROGRESSUI = &H2 
Const SHERB_NOSOUND = &H4 

If rootPath.Length > 0 AndAlso rootPath.Substring(1, 2) <> ":\" Then 
rootPath = rootPath.Substring(0, 1) & ":\" 
End If 

Dim flags As Integer = (noConfirmation And SHERB_NOCONFIRMATION) Or _ 
(NoProgress And SHERB_NOPROGRESSUI) Or (NoSound And SHERB_NOSOUND) 
SHEmptyRecycleBin(0, rootPath, flags) 

End Sub

End Class
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики