Private Sub Command1_Click()
Dim TxtData As String
'Открытие файлов
Open "D:\test.txt" For Input As #1
Open "D:\test2.txt" For Output As #2
While Not EOF(1)
'Чтение
Line Input #1, TxtData
'Запись
Print #2, TxtData
Wend
'Закрытие
Close #1
Close #2
End Sub
Vb6, чтение - запись файла
Доброго времени суток. Не корректно работает фрагмент кода:
Если эксперементировать с маленькими файлами то проблем никаких нет. Но читая файл размер более 10кб (!), запись производиться только первых 7кб(!). Не понимаю в чем проблема - чтение файла вроде должно проходить до конца :(
Код:
Если эксперементировать с маленькими файлами то проблем никаких нет. Но читая файл размер более 10кб (!), запись производиться только первых 7кб(!). Не понимаю в чем проблема - чтение файла вроде должно проходить до конца :(
Простите за ввод в заблуждение - при чтение файла программа обнаружевала конец файла в середине текста. Буду разбираться
У меня этот код работает нормально
