Kann eine Datei in VBA Word 2013 gelöscht und in den Papierkorb verschoben werden?

345
PhvR

Ich lösche eine Datei mit

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

Die Datei wird gelöscht, aber nicht an die RecycleBin gesendet. Kann mir jemand sagen, ob dies möglich ist?

0

1 Antwort auf die Frage

0
music2myear

VB kann dies tun: https://msdn.microsoft.com/de-de/library/tdx72k4b.aspx

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

Oder so:

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

Eine dritte Option ist das Verschieben der Datei in den Papierkorb. Wenn keine Fehler auftreten, löschen Sie das Original. Dies funktioniert möglicherweise besser für ältere Office-Versionen, da die Funktionen zum Löschen in den Papierkorb relativ neu sind.

Verwandte Probleme