<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> N <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sTempFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lSize <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  sFile = "D:TEST1GROSSEDATEI.WAS"
  sTempFile = "D:TEST1TEMP.tmp"
 
  <font color=green>' Original öffnen</font>
  F = FreeFile: <font color=#000099>Open</font> sFile <font _
    color=#000099>For</font> <font color=#000099>Binary</font> <font _
    color=#000099>As</font> #F
 
  <font color=green>' Temporäre Datei öffnen</font>
  <font color=#000099>If</font> Dir$(sTempFile) <> "" <font _
    color=#000099>Then</font> Kill sTempFile
  N = FreeFile: <font color=#000099>Open</font> sTempFile <font _
  color=#000099>For</font> <font color=#000099>Binary</font> <font _
  color=#000099>As</font> #N
 
  <font color=green>' Definieren des Bereichs, der übersprungen werden</font>
  <font color=green>' soll (Angaben in Bytes)</font>
  lPos = 2: lSize = 1
 
  <font color=green>' Original bis zur gewünschten Position einlesen</font>
  <font color=green>' und zwischenspeichern</font>
  ReadWrite F, N, 0, lPos - 1
 
  <font color=green>' Jetzt den Rest einlesen und zwischenspeichern</font>
  ReadWrite F, N, lPos + lSize - 1, 0
 
  <font color=green>' Dateien schließen</font>
  <font color=#000099>Close</font> #F: <font color=#000099>Close</font> #N
 
  <font color=green>' Temporäre Datei in Originaldatei umbenennen</font>
  Kill sFile
  Name sTempFile <font color=#000099>As</font> sFile
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> ReadWrite( _
  <font color=#000099>ByVal</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, _
  <font color=#000099>ByVal</font> N <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, _
  <font color=#000099>ByVal</font> lFromByte <font color=#000099>As</font> _
  <font color=#000099>Long</font>, _
  <font color=#000099>ByVal</font> lToByte <font color=#000099>As</font> <font _
  color=#000099>Long</font>)
 
  <font color=#000099>Dim</font> lCurPos <font color=#000099>As</font> <font _
    color=#000099>Long</font>
  <font color=#000099>Dim</font> lBytesToRead <font color=#000099>As</font> _
  <font color=#000099>Long</font>
  <font color=#000099>Dim</font> sTemp <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' Blockgröße</font>
  <font color=#000099>Const</font> bSize = 16384
 
  <font color=green>' zu Startposition "springen"</font>
  <font color=#000099>If</font> lFromByte > 0 <font color=#000099>Then</font> _
    Seek #F, lFromByte
 
  <font color=green>' Falls keine End-Position angegeben...</font>
  <font color=#000099>If</font> lToByte = 0 <font color=#000099>Then</font> _
    lToByte = LOF(F)
 
  lCurPos = lFromByte
  <font color=#000099>Do</font> <font color=#000099>While</font> lCurPos < _
    lToByte
    <font color=green>' Block</font>
    lBytesToRead = bSize
    <font color=#000099>If</font> lCurPos + lBytesToRead > lToByte <font _
      color=#000099>Then</font>
      lBytesToRead = lToByte - lCurPos
    <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=green>' Inhalt lesen und speichern</font>
    sTemp = Space$(lBytesToRead)
    <font color=#000099>Get</font> #F, , sTemp
    <font color=#000099>Put</font> #N, , sTemp
 
    lCurPos = lCurPos + lBytesToRead
  <font color=#000099>Loop</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>