Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
"RESOLVIDO" VBA para "Limpar Lixeira" do Desktop
"RESOLVIDO" VBA para "Limpar Lixeira" do Desktop
Saudações,
Exite algum comando VBA que eu possa (ao apertar num botão) Limpar automaticamente a Lixeira do Desktop ?
desde já, agradeço.
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.
Re: VBA para "Limpar Lixeira" do Desktop
Mathmatic,
Adicione um novo módulo e cole o que segue abaixo :
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
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
Fonte : https://www.mrexcel.com/forum/excel-que ... n-vba.html
Abs
Re: VBA para "Limpar Lixeira" do Desktop
sr. srobles,
e se fosse só para "chamar", digo "abrir" a Lixeira do Desktop ?
de que forma eu colocaria o código citado ?
e se fosse só para "chamar", digo "abrir" a Lixeira do Desktop ?
de que forma eu colocaria o código citado ?
Re: VBA para "Limpar Lixeira" do Desktop
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.
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.
Re: VBA para "Limpar Lixeira" do Desktop
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
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
Re: "RESOLVIDO" VBA para "Limpar Lixeira" do Desktop
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 .
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 .