Module Buildnummer
    ''' <summary>
    ''' Prozedur. Ändert in AssemblyInfo.vb die Build-Number der Assembly und 
    ' des Files
    ''' </summary>
    ''' <remarks></remarks>
    Sub BuildNumber()
        Dim f As String = My.Application.Info.DirectoryPath
        If f.Contains("\Debug") Then
            f = f.Replace("bin\Debug", "My Project\AssemblyInfo.vb")
 
            Dim arlFile As New ArrayList
            Using sr As IO.StreamReader = New IO.StreamReader(f)
                Dim line As String
                ' Read and display the lines from the file until the end 
                ' of the file is reached.
                line = sr.ReadLine()
                Do
                    If (line.Contains("AssemblyVersion") And (Not _
                      line.StartsWith("'"))) Then
                        Dim t1 As String = line
                        t1 = t1.Substring(28).Replace(""")>", "")
                        Dim a As String() = t1.Split(".")
                        Dim i As Long = Val(a(3))
                        i = i + 1
                        a(3) = i.ToString
                        line = "<Assembly: AssemblyVersion(""" & a(0) & "." & a( _
                          1) & "." & a(2) & "." & a(3) & """)>"
                    End If
                    If (line.Contains("AssemblyFileVersion") And (Not _
                      line.StartsWith("'"))) Then
                        Dim t1 As String = line
                        t1 = t1.Substring(32).Replace(""")>", "")
                        Dim a As String() = t1.Split(".")
                        Dim i As Long = Val(a(3))
                        i = i + 1
                        a(3) = i.ToString
                        line = "<Assembly: AssemblyFileVersion(""" & a(0) & "." _
                          & a(1) & "." & a(2) & "." & a(3) & """)>"
                    End If
                    arlFile.Add(line)
                    line = sr.ReadLine()
                Loop Until line Is Nothing
                sr.Close()
            End Using
            My.Computer.FileSystem.DeleteFile(f)
            Dim sw As IO.StreamWriter = IO.File.AppendText(f)
            For i As Integer = 0 To arlFile.Count - 1
                sw.WriteLine(arlFile(i))
            Next
            sw.Close()
        End If
    End Sub
End Module

Sub Main()
        buildnumber()