BlagoYar
Русь Великая, Очнись! Поднимись с колен Родная!
- Сообщения
- 85
- Репутация
- -1
Вручную удаляется, скриптом никак не хочет.
Пробовал и абсолютный путь и относительно скрипта и через
ПС. Понятно, что
Пробовал и абсолютный путь и относительно скрипта и через
.\
и ещё по-всякому с переменными ...ПС. Понятно, что
@error
выдаёт 0
Код:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\..\..\Медиа\Изображения\Misc\My Token Mix\ICO\Edge Backup.ico
#AutoIt3Wrapper_Outfile_x64=E:\Apps\Edge\Edge Backup.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Резервная копия профиля Edge
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <FileOperations.au3>
#include <Sound.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
$ProgramFilesX64 = RegRead("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
If NOT FileExists ($ProgramFilesX64 & "\WinRAR") Then
MsgBox(4096, "Проверка", "WinRAR не установлен")
Exit
EndIf
$sEdgeLocal = @UserProfileDir & '\AppData\Local\Microsoft\Edge\User Data\'
$sEdgeBackupDir = 'E:\Apps\Edge\'
$sFileName = 'Edge Default Profile'; & ' (' & @HOUR & '_' & @MIN & '_' & @SEC & ') (' & @MDAY & '-' & @MON & '-' & @YEAR & ')'
$sSound = $sEdgeBackupDir & 'BackUpOk.wav'
FileInstall('E:\Apps\Edge\BackUpOk.wav', @ScriptDir & '\BackUpOk.wav', 1)
FileSetAttrib($sSound, '+H-SA')
DirCreate($sEdgeBackupDir & 'BackUps\' & $sFileName)
FileSetAttrib($sEdgeBackupDir & 'BackUps\' & $sFileName, "S")
FileSetAttrib($sEdgeBackupDir & 'BackUps\' & $sFileName, "H")
FileSetAttrib($sEdgeBackupDir & 'BackUps\' & $sFileName, "T")
DirCopy($sEdgeLocal & '\Default\', $sEdgeBackupDir & 'BackUps\' & $sFileName & '\Default\', 0)
ShellExecute($ProgramFilesX64 & '\WinRar\WinRar.exe', 'm -afrar -ibck -r -m5 -ri7:3 -ep1 -scu -s -ma5 -md256m -qo+ -w' & @TempDir & '\WinRaR "' & $sEdgeBackupDir & 'BackUps\' & $sFileName & '" "' & $sEdgeBackupDir & 'BackUps\' & $sFileName & '\*.*"')
ProcessWaitClose('WinRaR.exe')
$CountCopies = _FO_FileBackUp($sEdgeBackupDir & 'BackUps\' & $sFileName & '.rar', $sEdgeBackupDir & '\BackUps\', 2, -1)
;~ MsgBox(0, '', 'Success = ' & $CountCopies & @CRLF & '@error = ' & @error)
DirRemove($sEdgeBackupDir & 'BackUps\' & $sFileName, 1)
FileDelete($sEdgeBackupDir & 'BackUps\' & $sFileName & '.rar')
_SoundOpen($sSound)
Sleep(1500)
_SoundPlay($sSound)
Sleep(1000)
_SoundClose($sSound)
FileDelete($sSound)
RunWait(@ComSpec &' /c Del /f /s /q /a "' & $sSound & '"', '', 0)
Exit