Как открыть одновременно несколько файлов для записи

#Include <File.au3>
#Include <Array.au3> 

Dim $Array[1]

_FindFiles('C:', 'server.txt')
_ArrayDisplay($Array) 

Func _FindFiles($sRoot, $sFile)

    Local $FileList

    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
            _ArrayAdd($Array, $sRoot & '\' & $FileList[$i])
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc

#Include <File.au3>

Global $4to = '10.10.1.20' ;Что менять
Global $na4to = '10.10.1.30' ;На что менять

_FindFiles('C:', 'server.txt')

Func _FindFiles($sRoot, $sFile)

    Local $FileList

    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
            $Read = FileRead($sRoot & '\' & $FileList[$i]) ;Считываем файл
			$Replace = StringRegExpReplace($Read, $4to, $na4to) ;Делаем изменение
			FileDelete($sRoot & '\' & $FileList[$i]) ;Удаляем файл
			FileWrite($sRoot & '\' & $FileList[$i], $Replace) ;На его место записываем измененный файл
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc

#Include <File.au3>

Global $4to = '10.10.1.20' ;Что менять
Global $na4to = '10.10.1.30' ;На что менять

_FindFiles('C:', 'server.txt')

Func _FindFiles($sRoot, $sFile)

    Local $FileList

    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
			$Read = FileRead($sRoot & '\' & $FileList[$i]) ;Считываем
            $Open = FileOpen($sRoot & '\' & $FileList[$i], 2) ;Открываем
            $Replace = StringRegExpReplace($Read, $4to, $na4to) ;Изменяем
            FileWrite($Open, $Replace) ;Переписываем
            FileClose($Open) ;Закрываем
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc

;...
            $Open = FileOpen($sRoot & '\' & $FileList[$i], 2) ;Открываем
            $Read = FileRead($Open) ;Считываем
;...