[RESOLVED] [2005] Restore File From Recycle Bin

[GrimmReaper]

Hello again!
In my program I need to be able to send them files to the recycle bin; then, there is also a need to be able to restore files from the recycle bin.

Sending to the recycle bin is covered with :

        My.Computer.FileSystem.DeleteFile(SelFileName, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)

How can I restore a deleted file from the recycle bin, if someone sent the wrong file to it?

[talkro]

I'm not sure that the restore option is available, but here is an alternative,
opent the recycle bin folder, cut and paste file back to it's original location.

[GrimmReaper]

Hi, thanx for the advice, but I need to be able to do this from my program

[talkro]

within your program, when the restore button is click, u then navigate to the recycle bin and restore the selected file.
I don't vb right now so can't give you an example.

[GrimmReaper]

OK, I just shelled the Recycle Bin, meaning I opened it up from my program. Customers are happy with that

This is how you sheel the RecycleBin from your application ( in case someone is interested) :

    <DllImport("shell32.dll", EntryPoint:="ShellExecute", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Private Shared Function ShellExecute(ByVal hwnd As Int32, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Int32) As Int32
    End Function

    <DllImport("shell32.dll", EntryPoint:="GetDesktopWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Private Shared Function GetDesktopWindow() As Int32
    End Function

    Private Const SW_SHOWMAXIMIZED As Long = 3
    Private Const SW_SHOWDEFAULT As Long = 10

    Private Sub RunShellExecute(ByVal sTopic As String, _
    ByVal sFile As Object, _
    ByVal sParams As Object, _
    ByVal sDirectory As Object, _
    ByVal nShowCmd As Long)

        Dim hWndDesk As Long
        Dim success As Long

        'the desktop will be the
        'default for error messages
        hWndDesk = GetDesktopWindow()

        'execute the passed operation
        success = ShellExecute(hWndDesk, sTopic, sFile, sParams, sDirectory, nShowCmd)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim sTopic As String
        Dim sFile As String
        Dim sParams As String
        Dim sDirectory As String
        'set default setting to be used
        'if not specifically required
        sTopic = "Open"
        sDirectory = vbNullString
        sFile = "explorer.exe"
        'hkeylocalmachine\software\microsoft\windowsnt\currentversion\winlogon\shell
        sParams = "/n,::{645FF040-5081-101B-9F08-00AA002F954E}"

        RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWDEFAULT)

    End Sub