Read an SQL Trace file into a Trace table

[GaryMazzone]

I got a start any way this will read the trace files and get the data I want to summarize

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim textData As String = String.Empty
        Dim dbId As Integer = 0
        Dim duration As Integer = 0
        Dim cpu As Integer = 0
        Dim reads As Integer = 0
        Dim writes As Integer = 0
        Dim sTime As Date
        Dim msg As String = String.Empty
 
        Dim myTraceFile As New Microsoft.SqlServer.Management.Trace.TraceFile
        Dim fbFolder As New FolderBrowserDialog
        fbFolder.ShowDialog()
        Dim fName As New System.IO.DirectoryInfo(fbFolder.SelectedPath.Trim())
        fbFolder.Dispose()
        Dim allFiles As IO.FileInfo() = fName.GetFiles("*.trc")
        For Each f As System.IO.FileInfo In allFiles
            myTraceFile.InitializeAsReader(f.FullName())
            Dim i As Integer = 0
            While myTraceFile.Read()
                'EventClass  0  String
                'BinaryData  1      Byte()
                'DatabaseID  2      Int32
                'SPID        3      Int32
                'Duration    4      Int64
                'StartTime   5      DateTime
                'Reads       6      Int64
                'Writes      7      Int64
                'CPU         8      Int32
                'TestData    9      String
                'ObjectId   10      Int32
                textData = myTraceFile.GetString(9)
                If textData IsNot Nothing Then
                    dbId = myTraceFile.GetInt32(2)
                    msg = "DBId = " & dbId & System.Environment.NewLine
                    duration = myTraceFile.GetInt64(4)
                    msg &= "Duration: " & duration.ToString() & System.Environment.NewLine
                    cpu = myTraceFile.GetInt32(8)
                    msg &= "CPU: " & cpu.ToString() & System.Environment.NewLine
                    sTime = myTraceFile.GetDateTime(5)
                    msg &= "StartTime: " & sTime & System.Environment.NewLine
                    reads = myTraceFile.GetInt64(6)
                    msg &= "Reads: " & reads.ToString() & System.Environment.NewLine
                    writes = myTraceFile.GetInt64(7)
                    msg &= "Writes: " & writes.ToString() & System.Environment.NewLine
                    msg &= "TextData: " & textData
                    Me.TextBox1.Text = msg
                End If
                i += 1
                If i = 15 Then
                    Exit While
                End If
                msg = String.Empty
            End While
            myTraceFile.Close()
        Next
        myTraceFile.Dispose()
 
    End Sub