Удаление байтов из файла - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Вообщем имеется файл весом 20 байт(может быть и 100 метров и более). Как удалить(исключить) из него байты с 5 по 10, не загружая файл в память? Или создать его копию, в которой будут отсутствовать указанные байты? P.S: Мелкие файлы отлично грузятся в байтовый массив, и оттуда всё просто сохраняется, но если файл более 10 метров, прога впадает в ступор. Посоветуйте как быть?

Решение задачи: «Удаление байтов из файла»

textual
Листинг программы
    Dim buffer() As Byte
    Dim f As Long
    Dim s As Long
    
    s = FileLen("in.bin")
    
    ReDim buffer(1 To s)
    
    f = FreeFile
    Open "in.bin" For Binary As #f
        Get f, , buffer
    Close #f
    
    f = FreeFile
    Open "out.bin" For Binary As #f
        Put f, , buffer
    Close #f

Оцени полезность:

11   голосов , оценка 3.545 из 5