是否可以在 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，因为删除至回收站功能是最近才添加的。