[madmasles]

AlexM,
А так попробуйте:

Код:

RunWait(@ComSpec & " /C COPY *.* 1.txt", "", @SW_HIDE)

Или так:

Код:

#include <File.au3>

$sText = ""
$aFileList = _FileListToArray(@ScriptDir, "*.txt")
If @error = 4 Then
    MsgBox(0, "Ошибка", "Нет файлов *.txt в папке " & @ScriptDir)
    Exit
EndIf

For $i = 1 To UBound($aFileList) - 1
    $hFile = FileOpen(@ScriptDir & "\" & $aFileList[$i], 0)
    $sText &= FileRead($hFile) & @CRLF ;каждый файл будет записан с новой строки.
    FileClose($hFile)
Next
$hFileNew = FileOpen(@ScriptDir & "\Test\test.txt", 10)
FileWrite($hFileNew, $sText)
FileClose($hFileNew)