Печать

[gregaz [?]]

Как восстановить  удаленный в корзину файл ?

[TheBloodTear [?]]

Код: AutoIt [Выделить]

ShellExecute ("::{645FF040-5081-101B-9F08-00AA002F954E}")

Хммм.. Открывать то, открывается, а вот восстановить чтот кто его знает как:)..

[El Panda [?]]

Как вариант скопировать его обратно из папки RECYCLER нужного диска, вопрос только в том как определить конкретный файл.
Но вроде как там есть файл индексов...

[gregaz [?]]

Как вариант скопировать его обратно из папки RECYCLER нужного диска, вопрос только в том как определить конкретный файл.
Но вроде как там есть файл индексов...

Похоже вопрос не так уж прост. Давно не могу найти решение.

[Medic84 [?]]

Почему бы не просканировать все диски с папками RECYCLER на наличие данного файла?

P.S. Удалил файл, вручную проверил все диски, все файлы там одни и те же. Вот незадача только с выпуском системы. Если это XP, то создает папку

Код: [Выделить]

D:\RECYCLER\S-1-5-21-842925246-1844823847-682003330-1003(например)
Если Win 7, то

Код: [Выделить]

C:\$Recycle.Bin\S-1-5-21-4132900103-3613051719-553855155-1001(например)

[gregaz [?]]

Medic84  [?]

Вот незадача только с выпуском системы. Если это XP, то создает папку

У меня Виста  :

Код: [Выделить]

C:\$Recycle.Bin\S-1-5-21-740529958-3378912036-438458945-1000
C:\$Recycle.Bin\S-1-5-21-51003140-4199384537-3980697693-500
Да и на других дисках тоже папки , на некоторых по 2
Внутри имена некоторых файлов закодирована

[Guezt Gutsy [?]]

Medic84  [?]

Почему бы не просканировать все диски с папками RECYCLER на наличие данного файла?

Удаленные файлы имеют другое название, и пути восстановления с оригинальным названием файлов лежат в бинарном файле INFO2 ( это в ХР ) так, что не знаю, что это даст. ИМХО

[Yashied [?]]

Первое, что приходит на ум, это работать непосредственно с окном корзины.

Код: AutoIt [Выделить]

#Include <Array.au3>
#Include <GUIListView.au3>

$Name = RegRead('HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}', '')
ShellExecute('::{645FF040-5081-101B-9F08-00AA002F954E}', '', '', '', @SW_HIDE)
If Not WinWait($Name, '', 3) Then
    MsgBox(16, 'Error', 'Error!')
    Exit
EndIf
$hWnd = WinGetHandle($Name)
$hList = ControlGetHandle($Name, '', 'SysListView321')
$Count = _GUICtrlListView_GetItemCount($hList)
Dim $Data[$Count + 1][2]
$Data[0][0] = 'Name'
$Data[0][1] = 'Original Location'
For $i = 1 To $Count
    For $j = 0 To 1
        $Data[$i][$j] = _GUICtrlListView_GetItemText($hList, $i - 1, $j)
    Next
Next
WinClose($hWnd)

_ArrayDisplay($Data)

[gregaz [?]]

Yashied  [?]

Первое, что приходит на ум, это работать непосредственно с окном корзины.

Если нет других решений ,то можно
Но что дальше ? Неужели кликать по элементам  окна ?

Кроме того нужно учесть возможность присутствия одноименных файлов

[Yashied [?]]

gregaz  [?]

Но что дальше ? Неужели кликать по элементам  окна ?

Можно так:

Код: AutoIt [Выделить]

_GUICtrlListView_SetItemSelected($hList, $Index, 1, 1)
_SendMessage($hWnd, $WM_COMMAND, $ID_Restore, 0)

Т.е. выделяешь нужный файл ($Index), затем меню Restore ($ID_Restore). Значение $ID_Restore можно посмотреть в любом редакторе ресурсов (к сожалению нет под рукой) или в Google.

[CreatoR [?]]

Откапал в гугле примерно вот что:

Код: AutoIt [Выделить]

ConsoleWrite(_FileRecycleRestore(@DesktopDir, "~~Wiki.jpg"))

Func _FileRecycleRestore($sSourcePath, $sFileName)
    Local Const $RECYCLE_BIN = 10
    Local $objShell, $objFolder, $objFolderItem, $colItems
   
    $objShell = ObjCreate("Shell.Application")
    $objFolder = $objShell.Namespace($RECYCLE_BIN)
    $objFolderItem = $objFolder.Self
    $colItems = $objFolder.Items
   
    If IsObj($objShell) And Not @error Then
        For $objItem In $colItems
            $sName = $objFolder.GetDetailsOf($objItem, 0)
            $sSrcPath = $objFolder.GetDetailsOf($objItem, 1)
           
            If $sSrcPath = $sSourcePath And $sName = $sFileName Then
                $objFolderItem.InvokeVerbEx("Восстановить", $sSrcPath & "\" & $sName)
                Return FileCopy($objFolderItem.Path & "\" & $sName, $sSrcPath & "\" & $sName)
            EndIf
           
;~          $objFolder.GetDetailsOf($objItem, Number...)
;~          0 Name: dvdsig.md5
;~          1 Original Location: C:\VISTAG\D1
;~          2 Date Deleted: 3/20/2007 6:54 PM
;~          3 Size: 32 KB
;~          4 Type: MD5 File
;~          5 Date Modified: 3/20/2007 6:02 PM
;~          6 Date Created: 3/20/2007 5:59 PM
;~          7 Date Accessed: 3/20/2007 12:00 AM
;~          8 Attributes: A
;~          9 Status: Online
;~          10 Owner: Everyone
;~          11 Author:
;~          12 Title:
;~          13 Subject:
;~          14 Category:
;~          15 Pages:
;~          16 Comments:
;~          17 Copyright:
;~          18 Artist:
;~          19 Album Title:
;~          20 Year:
;~          21 Track Number:
;~          22 Genre:
;~          23 Duration:
;~          24 Bit Rate:
;~          25 Protected:
;~          26 Camera Model:
;~          27 Date Picture Taken:
;~          28 Dimensions:
;~          29 :
;~          30 :
;~          31 Episode Name:
;~          32 Program Description:
;~          33 :
        Next
    EndIf
   
    Return SetError(1, 0, -1)
EndFunc

но оно не работает, есть мысли на этот счёт?

[gregaz [?]]

Yashied  [?]

Т.е. выделяешь нужный файл ($Index), затем меню Restore ($ID_Restore). Значение $ID_Restore можно посмотреть в любом редакторе ресурсов (к сожалению нет под рукой) или в Google.

А как определить нужный файл ( файл , который был только что удален) ?
Их там может быть несколько одного имени и удален был из одной папки.

Допустим даже я нашел и выполнил выделение второго (1) файла :

Код: AutoIt [Выделить]

_GUICtrlListView_SetItemSelected($hList, 1, 1, 1)
 

Почему у меня не получается проверить выделение с помощью ?

Код: AutoIt [Выделить]

GUICtrlListView_GetSelectedIndices($hList)
 

А послать сообщение  :

Код: AutoIt [Выделить]

$ID_Restore=101
_SendMessage($hWnd, $WM_COMMAND, $ID_Restore, 0)
 

вообще не удается  ?

CreatoR  [?]

но оно не работает, есть мысли на этот счёт?

У меня  нет

[Yashied [?]]

gregaz

А как определить нужный файл ( файл , который был только что удален)?

Почему у меня не получается проверить выделение с помощью?

Код: AutoIt [Выделить]

#Include <Array.au3>
#Include <GUIListView.au3>

$Name = RegRead('HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}', '')
ShellExecute('::{645FF040-5081-101B-9F08-00AA002F954E}', '', '', '', @SW_HIDE)
If Not WinWait($Name, '', 3) Then
    MsgBox(16, 'Error', 'Error!')
    Exit
EndIf
$hWnd = WinGetHandle($Name)
$hList = ControlGetHandle($Name, '', 'SysListView321')
$Count = _GUICtrlListView_GetItemCount($hList)
Dim $Data[$Count + 1][3]
$Data[0][0] = 'Name'
$Data[0][1] = 'Original Location'
$Data[0][2] = 'Date Deleted'
For $i = 1 To $Count
    For $j = 0 To 2
        $Data[$i][$j] = _GUICtrlListView_GetItemText($hList, $i - 1, $j)
    Next
Next
_GUICtrlListView_SetItemSelected($hList, 1, 1, 1)
ConsoleWrite(_GUICtrlListView_GetSelectedIndices($hList) & @CR)
WinClose($hWnd)

_ArrayDisplay($Data)

вообще не удается?

Значит ID не тот.

[gregaz [?]]

С     

Код: [Выделить]

_GUICtrlListView_SetItemSelected($hList, 1, 1, 1)     разобрался .
Я пытался читать уже после :   

Код: [Выделить]

WinClose($hWnd)
b]Yashied[/b]  [?]

Значит ID не тот.

Просьба помочь найти правильный  $ID_Restore

[CreatoR [?]]

Yashied  [?]

$Name = RegRead('HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}', '')

Это не везде будет работать, если пользователь сменил название у корзины, то заголовок будет другим. Есть ещё вот это:
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}

• mr.Gbabak
• Александр
• Redline
• Pasmer
• winstan
• Andeangl
• regdef1314
• VKFLIBQIRJKMYBR
• Asshaker
• madmasles
• trizorka
• ivsatel
• r00tbag
• enk
• max999111
• Free_Soft
• dasm
• Вовчик55
• Arei