É possível excluir um arquivo no VBA Word 2013 e enviá-lo para a Lixeira?

Question

Eu apago um arquivo usando

Sub RenameActiveFile()    by  Kmote

 '''' 

 ' Delete old file:
 With New FileSystemObject   ' (this line requires: Tools->References->Microsoft scripting runtime)
    If .FileExists(strFileFullName) Then
        .DeleteFile strFileFullName
    End If
End With

O arquivo é excluído, mas não enviado para a RecycleBin, Alguém pode me dizer se isso é possível?

    

Answer 1

O VB pode fazer isso: link

My.Computer.FileSystem.DeleteFile("C:\test.txt",
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,.
Microsoft.VisualBasic.FileIO.RecycleOption.SendToRecycleBin)

Ou desta forma:

My.Computer.FileSystem.DeleteFile(   "C:\test.txt",  
 FileIO.UIOption.OnlyErrorDialogs,  
 FileIO.RecycleOption.SendToRecycleBin,  
 FileIO.UICancelOption.ThrowException)

Uma terceira opção é mover o arquivo para a Lixeira e, se não houver erros, exclua o original. Isso pode funcionar melhor para versões mais antigas do Office, já que as funções de exclusão para reciclagem são adições relativamente recentes.