Jag använder den här koden för att läsa från ledig1 till ledig2 och från byte nummer "talet" och "talet2" byte framåt.

Dim Data As Byte
Dim ledig1
Dim ledig2
ledig1 = FreeFile
ledig2 = FreeFile + 1
Open file For Binary As ledig1 'Source
Open tempfil For Binary As ledig2 'Destination
Seek ledig1, talet + 1
Do Until Loc(ledig1) >= Val(talet) + Val(talet2)
Get ledig1, , Data
Put ledig2, , Data
Loop
Close ledig1
Close ledig2

Det är förståligt om det blir fel lite i början och slutet, jag har inte riktigt kollat på sådant än, men det konstiga är att det blir fel i mitten av filen. Då och då läggs det till en byte till målfilen. Datan jag försöker läsa är en jpg-fil. Jag tycker det här är otroligt irriterande så snälla hjälp mig om ni kan komma på någon möjlig orsak!

Det löste dig