Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
155
Assunto : Visual Basic
Titulo: Limpando a lixeira através de API's

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para limpar a lixeira podemos utilizar a função SHEmptyRecycleBin. Temos várias opções de uso, desde a mais ruidosa, que pede confirmação ao usuário, até a mais silenciosa, na qual o usuário não percebe o que está sendo realizado.

Veja as declarações da API :

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)
Dim RetVal As Long

Temos acima a declaração da função e a declaração de diversas constantes que poderão ser passadas como parâmetro para a função. Cada constante indica uma forma de ação (sem som, com confirmação, sem nada, etc.).

Veja um exemplo em um botão :

Public Sub Command1_click()
RetVal = SHEmptyRecycleBin(0&, _
vbNullString, SHERB_NORMAL)
End Sub

O parâmetro SHERB_NORMAL pode ser alterado para, por exemplo, SHERB_NOALL para que nenhum tipo de pergunta seja realizada.



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 11/27/2017 7:32:00 PM
nome: YTGMgQRNFxY
email: jimosanil0c@hotmail.com
comentário:
5uhShA http://www.LnAJ7K8QSpfMO2wQ8gO.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br