Sending file to Recycle Bin

[Senthil Murugan]

Good Afternoon to All

Could anybody tell me how to send a specific file in a folder to recycle bin ( not using Kill Function ) ?

 

[HighAndWilder]

Good Afternoon to All

Could anybody tell me how to send a specific file in a folder to recycle bin ( not using Kill Function ) ?

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
 
'Delete file Hello.xlsx
fso.DeleteFile "c:\Src\Hello.xlsx"

 

[Sequoyah]

Hi all,
be careful that the Kill statement deletes the file permanently, without moving it to the recycle bin, the same happens for the macro that uses the FileSystemObject. Below is the code for an alternative solution, adapt the path and file name:

Private Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hwnd As LongPtr
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As LongPtr
    lpszProgressTitle As String
End Type

Private Const FO_DELETE As Long = &H3
Private Const FOF_ALLOWUNDO As Integer = &H40
Private Const FOF_NOCONFIRMATION As Integer = &H10

Sub MoveToRecycleBin()
'https://www.mrexcel.com/board/threads/sending-file-to-recycle-bin.1265231/

    Dim fileOp As SHFILEOPSTRUCT
    Dim MyFile As String

    MyFile = "C:\Users\username\Downloads\Macros.xlsx" & vbNullChar '

    With fileOp
        .wFunc = FO_DELETE
        .pFrom = MyFile
        .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
    End With

    SHFileOperation fileOp
End Sub

 

[Senthil Murugan]

Thank you sir . Working fine

 

[Sequoyah]

thanks for the feedback, glad to be of help, you can mark the thread as solved