Private Function GetNextNumber(ByVal strFilePath As String) As Integer
        Dim Zahl As Integer = 1
        Dim ok As Boolean = False
        While Not ok
            Try
                Using fs As New FileStream(strFilePath, FileMode.OpenOrCreate, _
                  FileAccess.ReadWrite, FileShare.None),
                     BR As New BinaryReader(fs), BW As New BinaryWriter(fs)
                    If fs.Length > 0 Then Zahl = BR.ReadInt32() + 1
                    fs.Position = 0
                    BW.Write(Zahl)
                    ok = True
                End Using
            Catch
            End Try
        End While
        Return Zahl
    End Function

________
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