Vídeo recomendado
https://youtu.be/diWPPPhW-9E

"RESOLVIDO" VBA para "Limpar Lixeira" do Desktop

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

"RESOLVIDO" VBA para "Limpar Lixeira" do Desktop

Mensagem por Mathmatic »

Saudações,

Exite algum comando VBA que eu possa (ao apertar num botão) Limpar automaticamente a Lixeira do Desktop ?



desde já, agradeço.
Editado pela última vez por Mathmatic em Qua Ago 16, 2017 9:44 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: VBA para "Limpar Lixeira" do Desktop

Mensagem por srobles »

Mathmatic,

Adicione um novo módulo e cole o que segue abaixo :

Código: Selecionar todos

Option Explicit
Private Declare Function EmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

Sub RecycleBin_Empty()

    Dim Para As Long
    
    Dim lngRet As Long
    
    lngRet = EmptyRecycleBin(0&, vbNullString, 1&)

End Sub
Depois chame a rotina : Call RecycleBin_Empty de seu formulário ou planilha.

Fonte : https://www.mrexcel.com/forum/excel-que ... n-vba.html

Abs


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Re: VBA para "Limpar Lixeira" do Desktop

Mensagem por Mathmatic »

sr. srobles,

e se fosse só para "chamar", digo "abrir" a Lixeira do Desktop ?

de que forma eu colocaria o código citado ?


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Re: VBA para "Limpar Lixeira" do Desktop

Mensagem por Mathmatic »

sr. srobles,

acho que encontrei o comando para Abrir a Lixeira do Desktop no seguinte Link: https://superuser.com/questions/395015/ ... mmand-line

então criei o seguinte cód. VBA (Sub) para abrir a Lixeira:

================================================================================

Sub Abrir_Lixeira_Desktop()

Shell "explorer.exe ::{645FF040-5081-101B-9F08-00AA002F954E}", vbMaximizedFocus

End Sub

================================================================================

aqui pra mim (em testes) está funcionando, MAS gostaria de uma opinião do senhor quanto a este cód. VBA que crei, pois está usando um comando de números e letras que nunca usei antes, sendo assim estou com "Receio" para usar este cód vba lá no meu trabalho (na empresa).
o que o senhor me diz ? posso usar este cód. vba sem receio algum ? digo, isso não irá "Danificar/Corromper" nada em outras pastas/diretórios ou arquivos ?


aguardo um posicionamento do senhor.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: VBA para "Limpar Lixeira" do Desktop

Mensagem por srobles »

Mathmatic,

Que bom que encontrou a solução amigo!

Quanto á questão de usar ou não esta instrução, pode ficar tranquilo que não há problema nenhum.

O que posso dizer com relação á ele, é que no Windows, digamos que a Lixeira "não existe"... Esta é uma referência é um local reservado no disco para esta tarefa. Inclusive, este número é a chave referenciada no registro do próprio Windows, como se fosse uma pasta "TEMP", porém, relacionada á unidade C. Se houver em seu HD mais de uma partição, haverá mais de uma lixeira, porém cada uma com uma chave exclusiva.

Agora, se a sua dúvida tiver relação ao uso em outros computadores, não posso afirmar com 100% de certeza que não haverão erros, justamente se esta chave pode ou não variar de máquina para máquina.

Mas creio que nada de "ruim" ocorrerá amigo, já que você obteve esta rotina na internet. Vai na fé.

EDIT : Testei aqui em meu computador e funcionou perfeitamente.

Abs


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Re: "RESOLVIDO" VBA para "Limpar Lixeira" do Desktop

Mensagem por Mathmatic »

Ok , entendi perfeitamente.

Obs.: só vou usar mesmo no meu computador da empresa (exclusivo e sem partição de HD).


mais uma vez, muito obrigado pela atenção sr. srobles .


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder