Enviar arquivo para lixeira

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
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

'Para usá-la use a função abaixo
Public Sub ApagarParaLixeira(Arquivo As String)
If Dir$(Arquivo) = Empty Then
MsgBox "O arquivo informado não existe, talvez você não informou todo o caminho corretamente, ou o nome correto, inclusive com a extensão do arquivo, VERIFIQUE!!!", vbCritical, "Erro Excluindo Arquivo..."
Exit Sub
End If

Dim op As SHFILEOPSTRUCT

With op
.wFunc = FO_DELETE
.pFrom = Arquivo
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation op
End Sub




Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.