Найти ini файлы и изменить название секции

[Xabib2302]

Доброе время суток. Помогите чем сможете. Необходимо найти ini файлы и в каждом файле изменить секцию "Options" на название файла

 

[CreatoR]

#include <File.au3>

$aFiles = _FileListToArray(@ScriptDir, '*.ini', 1, True)

For $i = 1 To UBound($aFiles) - 1
    IniRenameSection($aFiles[$i], 'Options', StringRegExpReplace($aFiles[$i], '^.*\\|\.[^\.]+$', ''))
Next

 

[joiner]

#include <file.au3>
Local $aName
Local $spath = 'Путь к папке'
Local $aPath = _FileListToArrayRec($spath, '*.ini', 1, 1, 0, 2)
If Not @error Then
    For $i = 1 To $aPath[0]
        $aName = StringRegExp($aPath[$i], '(?m)^(?:.*\\)([^\\]*?)(?:\.[^.]+)?$', 3)
        If IsArray($aName) Then IniRenameSection($aPath[$i], 'Options', $aName[0])
    Next
EndIf