Что нового

Почему не удаляется файл [FileDelete]?

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
 

InnI

AutoIT Гуру
Сообщения
4,947
Репутация
1,443
Правильно так
Код:
$aSndID = _SoundOpen($sSound)
Sleep(1500)
_SoundPlay($aSndID)
Sleep(1000)
_SoundClose($aSndID)

или так
Код:
_SoundPlay($sSound, 1)

или так
Код:
SoundPlay($sSound, 1)
 
Автор
BlagoYar

BlagoYar

Русь Великая, Очнись! Поднимись с колен Родная!
Сообщения
85
Репутация
-1
Правильно так
Код:
$aSndID = _SoundOpen($sSound)
Sleep(1500)
_SoundPlay($aSndID)
Sleep(1000)
_SoundClose($aSndID)
Так работает, спасибо

А так не
Код:
($_sSound, 1)


ПС. А можно ли отключить звук уведомления от WinRAR в скрипте по завершению операции средствами AutoIt?
 
Последнее редактирование:
Автор
BlagoYar

BlagoYar

Русь Великая, Очнись! Поднимись с колен Родная!
Сообщения
85
Репутация
-1
ключ командной строки запуска WinRAR -isnd- ; см. также оф/справку WinRAR
Да справку ж смотрел, потому что сам строку составлял для скрипта, просто не ожидал, что есть такой ключ. А всю ж не пересмотришь.
Спасибо.
 
Верх