[решено] Копирование файлов

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)

AlexM · Отправлено: **16:57, 03-05-2010** | #3

Спасибо, получилось!

madmasles · Конфигурация компьютера

AlexM,
Только учтите, что в переменную $sText пишется содержание всех файлов, и пишется в память. Если их объем сопоставим с размером хотя бы 60-80% оперативки, то надо применять другой алгоритм.

kaster · Конфигурация компьютера

madmasles, для такого случая есть несколько вариантов
1. если есть гарантия что каждый файл будет меньше хотя бы 500 мб, то копить не все вместе а записывать каждый файл отдельно.
2. читать побайтово, скажем по мегабайту и записывать

madmasles · Конфигурация компьютера

kaster,
Абсолютно с Вами согласен. То же и имел в виду.

Второе, то есть читать по 1-10 Мб и записывать, ИМХО, самый оптимальный вариант.