Option Explicit On
Option Strict On
 
Imports System.IO  'wird für die File-Klasse benötigt
 
Public Class Form1
 
    Private Sub btnWerteSchreiben_Click(ByVal sender As System.Object,     _
      ByVal e As System.EventArgs) Handles btnWerteSchreiben.Click
        Dim FS As FileStream, BW As BinaryWriter, i As Integer
        Dim Stopuhr As New Stopwatch
        FS = New FileStream(CurDir() & "\Mappe1.txt", FileMode.Create)
        BW = New BinaryWriter(FS)
        Stopuhr.Start()
        For i = 1 To 1000
            BW.Write(i)
        Next
        Stopuhr.Stop()
        txtSchreiben.Text = CStr(Stopuhr.ElapsedMilliseconds)
        BW.Flush()
        FS.Close()
        BW.Close()
    End Sub
 
    Private Sub btnWerteLesen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnWerteLesen.Click
        Dim FS As FileStream, BR As BinaryReader, i As Integer
        Dim Stopuhr As New Stopwatch
        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)
            Stopuhr.Start()
            Do While BR.PeekChar <> -1
                i = BR.ReadInt16
                BR.BaseStream.Seek(2, SeekOrigin.Current)
                txtAusgabe.Text = txtAusgabe.Text & CStr(i)
                'Me.Refresh()
            Loop
            Stopuhr.Stop()
            txtLesen.Text = CStr(Stopuhr.ElapsedMilliseconds)
            FS.Close()
            BR.Close()
        Else
            MessageBox.Show("Mappe1.txt nicht gefunden", "Fehler beim Lesen" & _
              "einer Datei", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class