Печать

[StarEdik [?]]

CreatoR
Спасибо.Отлично. Только вот одно неудобство .Файлы удаляются из разных дисков ,а не только из «С:\». Хотел как то приспособить вместо имя диска .

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

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

Но не смог. Можете сделать восстановление из всех дисков ?

[CreatoR [?]]

StarEdik  [?]

Можете сделать восстановление из всех дисков ?

Уберите последний параметр при вызове.

[StarEdik [?]]

CreatoR
Респект. Но
 - Если с диска удалить только один файл, то при восстановлении в корзине остается " след " файла. Я с каждого диска удалял по одному файлу – итог тоже самое. И если обновить (F5) корзину " след" исчезает.
- А если с одного диска удалить 2 файла а с другого 1 файл, восстановление выполняется успешно.
- При восстановление более одного удаленного файла с диска(ов) операция восстановления выполняется успешно.
Может придумаете что ни будь

[CreatoR [?]]

StarEdik  [?]

Если с диска удалить только один файл, то при восстановлении в корзине остается след файла

Какой след?

[StarEdik [?]]

CreatoR  [?]

Какой след?

После востановления в корзине остается сам " файл ".Но это не совсем "файл",так как он вторично не востанавливается.Наверно вам придется самому проверить.

[CreatoR [?]]

StarEdik  [?]

После востановления в корзине остается сам " файл "

У меня ничего не остаётся.

Наверно вам придется самому проверить

Я стараюсь проверять прежде чем отвечать в теме.

[StarEdik [?]]

CreatoR
Для проверки я делаю так -Запускаю скрипт, открываю  корзину и оставляю его открыто.Удаляю с диска 1 файл au3 .Он появляется в корзине. Потом нажимаю F9. Хотя файл восстанавливается ,но в корзине его еще  видна. При попытке восстановить с контекста вторично выдается ошибка.

Ошибка при перемещение файла или папки

«Не удается переместить файл. Не удается произвести чтение из файла или с диска»

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

HotKeySet("{F9}", "_RestoreFile")
HotKeySet("{Esc}", "_Exit")
$Name = RegRead('HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}', '')
ShellExecute('::{645FF040-5081-101B-9F08-00AA002F954E}', '', '', '', @SW_SHOW)
If WinWaitActive($Name, '', 5) Then
    Sleep(400)
    WinMove($Name, "", @DesktopWidth-210, 90, 180, 600)
EndIf
Sleep(200)
Run("Explorer.exe " & "C:\")
$sTitle = StringRegExpReplace("C:\", "^.*\\", "")
$hWin = WinWait('[REGEXPCLASS:(Cabinet|Explore)WClass;REGEXPTITLE:.*\Q' & $sTitle & '\E.*]', '', 5)
Sleep(200)
If $hWin Then
    WinMove ($sTitle, "", 10, 90,790,600 )
    WinSetOnTop($hWin, "", 1)
EndIf
Sleep(500)
;filewrite(C:\Testwith.au3', 'test')
FileClose(FileOpen("C:\Testwith.au3", 1))
 Sleep(1000)
FileRecycle("C:\Testwith.au3")
MsgBox(64,"Удаление файла в корзину","   Файл C:\Testwith.au3 удален в корзину     " & @CRLF & @CRLF & " Для вотановления файла нажмите клавишу F9   ")

While 1
    Sleep(100)
WEnd

Func _RestoreFile()
    _FileRecycleBinFileRestore('*.au3', 0, 0,'')
    _RefreshRecycled()
EndFunc

Func _RefreshRecycled()
    WinActivate($Name, '')
    Send("{F5}")
EndFunc

Func _FileRecycleBinEnumItems($sRoot = '')
    Local $oShellApp, $oRecycleBin, $oFolderItems, $oItem

    $oShellApp = ObjCreate('Shell.Application')
    $oRecycleBin = $oShellApp.NameSpace(10)

    If Not IsObj($oRecycleBin) Then
        Return SetError(1, 0, 0)
    EndIf

    Local $Ret, $Result[101][6] = [[0]]

    $sRoot = StringStripWS($sRoot, 3)

    If $sRoot > '' Then
        If StringInStr($sRoot, ':') Then
            $sRoot = StringRegExpReplace($sRoot, ':.*', '')
        Else
            $sRoot = ''
        EndIf

        If Not FileExists($sRoot & ':') Then
            Return SetError(1, 0, 0)
        EndIf
    EndIf

    $Ret = DllCall('shell32.dll', 'none', 'SHGetSettings', 'uint*', 0, 'dword', 2)

    If @error Then
        Return SetError(1, 0, 0)
    EndIf

    $oFolderItems = $oRecycleBin.Items()

    For $oItem In $oFolderItems
        If ($sRoot > '') And ($sRoot <> StringLeft($oItem.Path, 1)) Then
            ContinueLoop
        EndIf

        $Result[0][0] += 1

        If $Result[0][0] > UBound($Result) - 1 Then
            ReDim $Result[$Result[0][0] + 100][UBound($Result, 2)]
        EndIf

        $Result[$Result[0][0]][0] = $oRecycleBin.GetDetailsOf($oItem, 0) ; Original name
        $Result[$Result[0][0]][1] = $oRecycleBin.GetDetailsOf($oItem, 1) ; Original path
        $Result[$Result[0][0]][2] = $oRecycleBin.GetDetailsOf($oItem, 2) ; Deleted date
        $Result[$Result[0][0]][3] = $oItem.Size ; Size
        $Result[$Result[0][0]][4] = FileGetAttrib($oItem.Path) ; Attributes
        $Result[$Result[0][0]][5] = $oItem.Path ; Recycle name

        If (Not $Ret[1]) And (Not StringInStr($Result[$Result[0][0]][4], 'D')) Then
            If StringInStr($Result[$Result[0][0]][5], '.') Then
                $Result[$Result[0][0]][0] &= StringRegExpReplace($Result[$Result[0][0]][5], '^.*\.', '.')
            EndIf
        EndIf
    Next

    ReDim $Result[$Result[0][0] + 1][UBound($Result, 2)]
    Return $Result
EndFunc

Func _FileRecycleBinFileRestore($sFile, $iFlag = 0, $iReplace = 0, $sRoot = '')
    Local $aData = _FileRecycleBinEnumItems($sRoot)

    If StringInStr($sFile, "*") Then
        $sFile = StringReplace($sFile, "*", ".*")
        $sFile = StringRegExpReplace($sFile, '([][\^\\+$(){}=!|:?]|\.[^*])', '\\\1')
    EndIf

    For $i = 1 To UBound($aData, 1) - 1
        $sOriginalFullName = $aData[$i][1] & '\' & $aData[$i][0]
        $sRecyclerFullName = $aData[$i][5]
        $sAtributes = $aData[$i][4]
        $sCompare = $sOriginalFullName

        If $iFlag <> 0 Then
            $sCompare = $sRecyclerFullName
        EndIf

        If $sCompare = $sFile Or StringRegExp($sCompare, $sFile & '$') Then
            If $sAtributes = 'D' Then
                DirMove($sRecyclerFullName, $sOriginalFullName, $iReplace)
            Else
                FileMove($sRecyclerFullName, $sOriginalFullName, $iReplace)
            EndIf
        EndIf
    Next
EndFunc

Func _Exit()
    Exit
EndFunc
 

Ну ничего.Придется обновить корзину.

[CreatoR [?]]

StarEdik  [?]

Запускаю скрипт, открываю  корзину и оставляю его открыто.Удаляю с диска 1 файл au3 .Он появляется в корзине. Потом нажимаю F9. Хотя файл восстанавливается ,но в корзине его еще  видна.

Ну это видимо проблемы системы, и со скриптом никак не связано.
Функция восстановления не должна нести ответственность за обновление вида папки корзины .

[StarEdik [?]]

CreatoR
Понятно.А есть ли возможность програмно обновлять корзину?

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