VB6: binary-файлы, записанные оператором Put, превышают разм

[batmax]

Я открываю входной и выходной файлы как binary, читаю из входного файла заголовок и НЕКОТОРЫЕ (не все) записи, затем пишу заголовок и эти записи в выходной файл. Использую операторы Get/Put. Проблема: длина выходного файла всегда РАВНА длине входного, хотя очевидно он должен быть короче. Содержимое похоже на мусор и части входного файла. Я уже пробовал копировать в выходной файл лишь один байт из входного и сразу закрывать, всё равно - длина та же.
Может, я что-то не так делаю ?
inputSHP = FreeFile
Open strSHPFileName & ".shp" For Binary As inputSHP
outputSHP = FreeFile
Open strSHPFileName & constNewFilesPostFix & ".shp" For Binary As outputSHP
'дальше, например, так:
Get inputSHP, 33, lngShapeType
lngNewShapeType = lngShapeType
If Me.CheckConvert.Value = 1 Then
Select Case lngShapeType
Case 3
lngNewShapeType = 5
Case 5
lngNewShapeType = 3
End Select
End If
Put outputSHP, 33, lngNewShapeType
'закрываем файлы в обратном порядке
Close outputSHP
Close inputSHP

[Viper]

Во-первых, пользуйся тэгами форматирования, во-вторых, привиденный фрагмент не дает возможности вникнуть в проблему, в-третьих код

Код: Выделить всё

Put outputSHP, 33, lngNewShapeType

это код записи чего-то в байт с нумером 33, откуда собственно это что-то и было считано, если весь файл читается и записывается таким же образом, то не стоит удивляться размерам нового файла и ненужному мусору.


Поправил опечаточку

[alibek]

Не позицию, а байт, файл открыт для бинарного доступа.

[batmax]

Всё, уже сам понял: надо уничтожать выходные файлы, перед тем как открывать на запись!
Вот так:
On Error Resume Next 'Это на случай, если файла НЕ существует
Kill strSHPFileName & constNewFilesPostFix & ".shp"
Тема закрыта.