Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


У меня, вроде, так получилось:
Код: Выделить весь код
$sFile = @ScriptDir & '\test.png'
$sFile_new = @ScriptDir & '\test2.png'
$hRead = FileOpen($sFile)
$hWrite = FileOpen($sFile_new, 2)
Do
    $line = FileReadLine($hRead)
Until StringLen($line) = 0
$Buf = FileRead($hRead)
FileWrite($hWrite, $Buf)
FileClose($hRead)
FileClose($hWrite)

Отправлено: 00:54, 14-04-2010 | #12