Enviando um arquivo para a lixeira do Windows em seu Projeto Visual Basic

Para enviar um arquivo para a lixeira do Windows use o código explicado no projeto exemplo a seguir:

1- Inicie um novo projeto no VB e no formulário form1 insira um botão de comando com a propriedade Caption = " Excluir o arquivo para Lixeira"; Insira um TextBox e um Label com a propriedade Caption=Arquivo.

2- O código do projeto é o seguinte:

Código da seção General declarations

Option Explicit

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias 
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40

Código do botão de Comando 

Private Sub Command1_Click()
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim FileName As String

'Excluir o arquivo e o envia para  lixeira ( Recycle Bin)
If Text1.Text <> "" Then
   FileName = Text1.Text
Else
   MsgBox "Informe o caminho e nome do arquivo ! "
   Exit Sub
End If

With FileOperation
.wFunc = FO_DELETE
.pFrom = FileName
.fFlags = FOF_ALLOWUNDO
End With

lReturn = SHFileOperation(FileOperation)

MsgBox "Arquivo enviado para a lixeira"

End Sub

Neste exemplo o usuário irá informar o caminho e o nome do arquivo que deseja enviar para a lixeira e clicar no botão de comando ; o arquivo será excluido e enviado para lixeira. No exemplo enviamos o arquivo LIXO.TXT para a lixeira. Você pode e deve melhorar o código adaptando-o as suas necessidades.

Mensagem exibida pelo programa O arquivo enviado para a lixeira

Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti