Dim sr As New IO.FileStream("F:\xdos.txt", IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.Read)
        Dim bb(CInt(sr.Length) - 1) As Byte
        sr.Read(bb, 0, bb.Length)
        sr.Close()

 
        Dim sr As New IO.FileStream("F:\xdos.txt", IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.Read)
        Dim sw As New IO.FileStream("F:\xdos1.txt", IO.FileMode.Create, _
        IO.FileAccess.Write, IO.FileShare.None)
 
        Dim bb(4095) As Byte ' Puffer
 
        Do
            Dim bw As Integer = sr.Read(bb, 0, bb.Length) ' bw = Länge ( 
            ' tatsächlich) gelesen
            sw.Write(bb, 0, bw)
        Loop While sr.Position < sr.Length
 
        sr.Close()
        sw.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist