Можно ли удалить файл в VBA Word 2013 и отправить его в корзину?

Question

Я удаляю файл используя

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

Файл удален, но не отправлен в корзину, может кто-нибудь сказать мне, если это возможно?

Answer 1

VB может сделать это: https://msdn.microsoft.com/en-us/library/tdx72k4b.aspx

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

Или так:

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

Третий вариант - переместить файл в корзину, а если ошибок нет, то удалить оригинал. Это может работать лучше для более старой версии Office, так как функции удаления в корзину - относительно недавние добавления.