Untitled

   Private Sub BuildEvents_OnBuildBegin(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildBegin

    End Sub

    Private Sub BuildEvents_OnBuildProjConfigBegin(ByVal Project As String, ByVal ProjectConfig As String, ByVal Platform As String, ByVal SolutionConfig As String) Handles BuildEvents.OnBuildProjConfigBegin

        If InStr(1, ProjectConfig, "Debug", 1) Then
            Module1.WriteToOutputBuildPane(vbCrLf & "Debug mode, still counting" & vbCrLf)
            'Exit Sub
        End If

        ' get ver filename

        Dim res_filename As String

        res_filename = DTE.Solution.Projects.Item(Project).FullName 'DTE.Solution.FullName
        res_filename = Path.ChangeExtension(res_filename, ".ver")

        Dim dt_filename As String
        dt_filename = Path.ChangeExtension(res_filename, ".buildtime")


        Dim projpath As String
        projpath = DTE.Solution.Projects.Item(Project).FullName
        ''Module1.WriteToOutputBuildPane("Polku: " + projpath)
        If (projpath.ToUpper().StartsWith("HTTP:")) Then
            Module1.WriteToOutputBuildPane("Polkua '" + projpath + "' ei tueta.")
            Exit Sub
        End If

        ' open VERSION FILE and increment build number
        Module1.WriteToOutputBuildPane(vbCrLf & "--------------------------------------------------" & res_filename & vbCrLf)

        Module1.WriteToOutputBuildPane(vbCrLf & "Build trigger launched for " & res_filename & vbCrLf)

        Dim msg_text As String

        If File.Exists(res_filename) Then

            Dim line As String

            Try

                Dim sr As StreamReader = New StreamReader(res_filename)
                line = sr.ReadLine()
                sr.Close()

            Catch ex As Exception

                Module1.WriteToOutputBuildPane(vbCrLf & _
                                          "Version file read failed : " & ex.Message & vbCrLf)

            End Try

            line = Right(line, line.Length - 5)


            Try

                Dim sw As StreamWriter = File.CreateText(res_filename)
                sw.WriteLine("build {0}", line + 1)
                sw.Close()

            Catch ex As Exception

                Module1.WriteToOutputBuildPane(vbCrLf & _
                                          "Version file write failed : " & ex.Message & vbCrLf)

            End Try

            msg_text = "Build number : " & line + 1 & ", " & Now

            Module1.WriteToOutputBuildPane(vbCrLf & msg_text & vbCrLf)
            Module1.WriteToLogFile(msg_text)

        Else

            Try

                Dim sw As StreamWriter = File.CreateText(res_filename)
                sw.WriteLine("build 1")
                sw.Close()


            Catch ex As Exception

                Module1.WriteToOutputBuildPane(vbCrLf & _
                                          "Version file write failed : " & ex.Message & vbCrLf)

            End Try

            msg_text = "Build number : 1, " & Now


            Module1.WriteToOutputBuildPane(vbCrLf & msg_text & vbCrLf)
            Module1.WriteToLogFile(msg_text)

        End If

        Try
            Dim sw2 As StreamWriter = File.CreateText(dt_filename)
            sw2.WriteLine(DateTime.Now().ToString("G", System.Globalization.DateTimeFormatInfo.InvariantInfo))
            sw2.Close()
            ''Module1.WriteToOutputBuildPane("Kirjoitettiin dtfile: " & dt_filename)

        Catch ex As Exception
            Module1.WriteToOutputBuildPane("DateTime file write failed: " & ex.Message & vbCrLf)
        End Try


    End Sub