Visual Basic

cjdc wrote:

I have searched for months now

cjdc wrote:

Thanks for that but now confused as to why create a new file to transfer existing data?

Private Dim lineNumber As Integer = 0

Private Sub AddString(s As String)
    lineNumber=lineNumber+1
    myTextBox.Text=myTextBox.Text & lineNumber.ToString() & " : " & s & Environment.NewLine
End Sub

Using sr As StreamReader = New StreamReader(myStream) 'mystream = Path of File
    Dim line As String
    Dim CountLines As Integer = 0
    Do
        line = sr.ReadLine()
        If line = Nothing Then Exit Do
        CountLines = CountLines + 1
    Loop Until line Is Nothing
    sr.Close()
    CountLines = CountLines - 4 'The number 4 indicate eventually first lines to subtract.
End Using

sw.WriteLine(DateTime.Now.ToString() + "," + "Reason," + (RichTextBox2.Text)

CountLines = CountLines + 1
sw.WriteLine(CountLines.ToString + " , " + DateTime.Now.ToString() + "," + "Reason," + (RichTextBox2.Text)

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If ComboBox1.SelectedItem = "" Then
            Me.Hide()
            Dialog1.ShowDialog()
            Return
        Else
        End If
        Dim fso
        Dim fol As String
        fol = "\\Sv1\technician\IT report"
        fso = CreateObject("Scripting.FileSystemObject")
        If Not fso.FolderExists(fol) Then
            fso.CreateFolder(fol)
            MsgBox(" Folder created", MsgBoxStyle.OkOnly, "Folder Created")
        Else
            MsgBox(" Log File Updated", MsgBoxStyle.OkOnly, "Log Updated")
        End If
        Dim path As String = "\\Sv1\technician\IT report\IT Report Log.txt"
        Dim sw As IO.StreamWriter

        If IO.File.Exists(path) = False Then
            sw = IO.File.CreateText(path)
            sw.WriteLine(Date.Now.ToString() + "," + ("IT Report Log File Started"))
            sw.Flush()
            sw.Close()
            IO.File.SetCreationTime(path, Date.Now())
        End If
        Using sv As IO.StreamReader = New IO.StreamReader(path)
            Dim CountLines As Integer = 0
            Dim line As String
            Do
                line = sv.ReadLine()
                If line = Nothing Then Exit Do
                CountLines = CountLines + 1
            Loop Until line Is Nothing
            sv.Close()
            CountLines = CountLines - 1 'The number 1 indicate eventually first lines to subtract.
            sw = IO.File.AppendText(path)
            CountLines = CountLines + 1
            sw.WriteLine(CountLines.ToString + ". " + DateTime.Now.ToString() + " " + (ComboBox1.Text) + "," + (TextBox1.Text) + "," + (ComboBox2.Text) + "," + "Reported by," + (ComboBox3.Text) + "," + (DateTimePicker1.Text))
        End Using
        sw.Flush()
        sw.Close()
        Dim sr As IO.StreamReader = IO.File.OpenText(path)
        Dim s As String
        Do While sr.Peek() >= 0
            s = sr.ReadLine()
            Console.WriteLine(s)
        Loop
        ComboBox1.SelectedIndex = -1
        ComboBox2.SelectedIndex = -1
        ComboBox3.SelectedIndex = -1
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        sr.Close()
    End Sub