Что нового

Склейка txt с выводом в *.cmd в кодировке 866

Hulk777

Новичок
Сообщения
69
Репутация
1
Здравствуйте. Есть код
Код:
#Include <File.au3>

$sFile = @ScriptDir & '\Result.txt'
$sPath = @ScriptDir

$aList = _FileListToArray($sPath, '*.cmd', 1)
If @Error Then
    Exit
EndIf

$hFile = FileOpen($sFile, 2)
For $i = 1 To $aList[0]
    $hTemp = FileOpen($sPath & '\' & $aList[$i])
    If $hTemp = -1 Then
        ContinueLoop
    EndIf
    $sData = FileRead($hTemp)
    If (Not @Error) And (@Extended) Then
        If $i < $aList[0] Then
            $sData &= @CRLF
        EndIf
        FileWrite($hFile, $sData)
    EndIf
    FileClose($hTemp)
Next
FileClose($hFile)


как сделать вывод конечного файла в кодировку 866?
 
Верх