Option Explicit On
Option Strict On
 
Imports System.IO
 
Public Class Form1
 
    Private Sub btnUebertragen_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnUebertragen.Click
        Dim FS As FileStream
        Dim BR As BinaryReader
        Dim i As Integer
 
        If File.Exists(CurDir() & "\Mappe1.txt") Then
            FS = New FileStream(CurDir() & "\Mappe1.txt", FileMode.Open)
            BR = New BinaryReader(FS)
            BR.BaseStream.Seek(0, SeekOrigin.Begin)
            'Do Until BR.PeekChar <> -1
                i = BR.ReadInt32
                BR.BaseStream.Seek(4, SeekOrigin.Current)
                txtAusgabe.Text = txtAusgabe.Text & CStr(i)
            'Loop
            BR.Close()
        Else
            MessageBox.Show("Mappe1.txt nicht gefunden", "Fehler beim Lesen" & _
              "einer Datei", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
End Class