|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Esvaziar lixeira do windows
|
 |
|
|
|
Postada em 9/9/2003 por Ð@®l@n
'num modulo
Dim RetVal As Long
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias _
"SHEmptyRecycleBinA" (ByVal hwnd As _
Long, ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
'Execução normal
Private Const SHERB_NORMAL = &H0
'Executar sem confirmação
Private Const SHERB_NOCONFIRMATION = &H1
'Executar sem mostrar o progresso
Private Const SHERB_NOPROGRESSUI = &H2
'Execução sem som
Private Const SHERB_NOSOUND = &H4
Private Const SHERB_NOALL = (SHERB_NOCONFIRMATION _
And SHERB_NOPROGRESSUI _
And SHERB_NOSOUND)
Public Sub EmpRecBin()
'Esvaziar lixeira com confirmação
RetVal = SHEmptyRecycleBin(0&, _
vbNullString, SHERB_NORMAL)
End Sub
Public Sub EmpRec()
'Esvaziar lixeira sem confirmação
RetVal = SHEmptyRecycleBin(0&, _
vbNullString, SHERB_NOCONFIRMATION)
End Sub
Public Sub EmpRecBarra(
)
'Esvaziar Lixeira sem barra de progresso
RetVal = SHEmptyRecycleBin(0&, _
vbNullString, SHERB_NOPROGRESSUI)
End Sub
Public Sub EmpRecSom()
'Esvaziar Lixeira sem som
RetVal = SHEmptyRecycleBin(0&, _
vbNullString, SHERB_NOSOUND)
End Sub
|
|
|
|
|
