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

Member 4247277 wrote:

my first thought of why this is happening, is because VB is platform dependent, so I have to/must redo the program in C#, which is not platform dependent, but I first want to make sure that C# won't produce the same error, as it is a lot of work and code to redo.

Member 4247277 wrote:

I am using Visual Basic 2005, XP and Office 2003 ( I prefer to use this combination), I am also using the following dll's:
- Interop.Word
- Interop.Excel
- Interop.Outlook
- MySql.Data
- All default dll's

Member 4247277 wrote:

and people critisize me for sticking with vb, but vb is quite a powerful language though.

Member 4247277 wrote:

I didn't bother to look at it, as I have read that if you are using an installer, it will automatically register the dlls.

Member 4247277 wrote:

Is there any other way (other than using COM, which I will have to register) to use Excel, Word and Outlook, or are including them in my project the only way?

<br />
'Global variables<br />
Private cls1Ref as New clsClassOne<br />
Private cls2Ref as New clsClassTwo<br />
Private cls3Ref as New clsclassThree<br />

<br />
'No Global variables<br />
'Only for the main form<br />
Private Sub Button1_Click(.....)<br />
dim cls1Ref as New clsClassOne<br />
cls1Ref.add(........)<br />
End Sub<br />
<br />
Private Sub Button2_Click(....)<br />
messageBox("Before Ref")<br />
dim cls2Ref as New clsClassTwo<br />
messageBox("After Ref")<br />
dim name as String = cls2Ref.get(.....) 'If the retrieved value is to be a string<br />
messageBox("After Retrieval")<br />
End Sub<br />
<br />
Private Sub Button3_Click(....)<br />
dim cls3Ref as New clsClassThree<br />
cls3Ref.sendMail(.......)<br />
End Sub<br />