Dim fsFile As FileStream
        Dim fsCopyFile As FileStream
        Dim fsReader As BinaryReader
        Dim fsWriter As BinaryWriter
 
fsFile = New FileStream(tempVerzeichnis, FileMode.Open)
            fsCopyFile = New FileStream(nFileInfo.Verzeichnis, _
              FileMode.OpenOrCreate)
 
            fsReader = New BinaryReader(fsFile)
            fsWriter = New BinaryWriter(fsCopyFile)
 
            While fsReader.PeekChar() > -1
 
                fsWriter.Write(fsReader.ReadByte)
 
            End While
 
            fsWriter.Close()
            fsReader.Close()