$fName = "Тушканчики.txt" ;Имя файла
$fWay = @ScriptDir & "\" ;Путь до скрипта
$hFile = FileOpen($fWay & "test.bat", 1)
; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $hFile = -1 Then
MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
Exit
EndIf
FileWrite($hFile, "type " & $fWay & $fName &" >" & $fWay & "Done.txt" & @CRLF)
FileWrite($hFile, "chcp 1251 >nul")
FileClose($hFile)
Run($fWay & "test.bat")
FileDelete($fWay & "test.bat")