Delete specific folder found in a text file

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>
#Include <Date.au3>
#include <Array.au3>
 
; ***** Create local logs
DirCreate (@WindowsDir & "\Log\")
$dir = (@WindowsDir & "\Log\")
$log = FileOpen (@WindowsDir & "\Log\log.log",2+256)
 
Eof()
 
Func Eof()
    ; Create a constant variable in Local scope of the filepath that will be read/written to.
    Global Const $sFilePath = @scriptdir & "\folders.txt"
 
    ; Open the file for reading and store the handle to a variable.
    Global $hFileOpen = FileOpen($sFilePath, $FO_READ)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
        Return False
    EndIf
 
    ; Read the contents of the file using the handle returned by FileOpen.
 
     Global $aArray = FileReadToArray ($hFileOpen)
      For $i = 0 To UBound($aArray) - 1 ; Loop through the array.
            MsgBox($MB_SYSTEMMODAL, "", $aArray[$i])
 
Next
$sRoot = (@ScriptDir)
 
; Retrieve a list of all the folders in $sRoot, and store them as an array in $aList
Global $aList = _FileListToArrayRec ($sRoot, "*", 2, -2) ; _FileListToArray("path" [, "Filter" [, Flag]])
; Look at what _FileListToArray() puts into $aList
_ArrayDisplay($aList)
For $i = 1 To $aList[0]
 
 
If FileExists($sRoot & "\" & $aList[$i] & "\" & $aArray[$i])  Then _filewritelog ($log, "Deleting, " & $aArray[$i])
Next
FileClose($hFileOpen)
EndFunc