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

289
PhvR

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

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

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

0

1 ответ на вопрос

0
music2myear

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, так как функции удаления в корзину - относительно недавние добавления.

Похожие вопросы