[RESOLVED] Listbox add problum

[Demover]

Greetings All

I forgot VS 2008

I can add a textbox text to the listbox and save it to IO.File.AppendText(Application.StartupPath & "\List.txt")

but i cant get it to add with a openfiledialog , now the listbox allready hase text loaded in it , iam trying to add too it with openfiledialog

openFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.Title = "Select a Cursor File"
openFileDialog1.FileName = ""
ProgressBar1.Visible = True

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

Dim lines() As String = File.ReadAllLines(openFileDialog1.FileName)


For Each line As String In lines

Lst.Items.Add(line)




Next

can someone help me on this
Thankl You

Dem

[RobDog888]

Are you getting an error?

I tried it with a couple of edits and works fine.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.Title = "Select a Cursor File"
        OpenFileDialog1.FileName = ""
        ProgressBar1.Visible = True

        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim lines() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
            For Each line As String In lines
                ListBox1.Items.Add(line)
            Next
        End If
    End Sub

End Class

[Demover]

Are you getting an error?

I tried it with a couple of edits and works fine.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.Title = "Select a Cursor File"
        OpenFileDialog1.FileName = ""
        ProgressBar1.Visible = True

        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim lines() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
            For Each line As String In lines
                ListBox1.Items.Add(line)
            Next
        End If
    End Sub

End Class

Thanks for replying

i can add it it works but iam trying to add it also to
IO.File.AppendText(Application.StartupPath & "\List.txt")

i have items in the list box, and iam trying to add more with opendialog ud dating my IO.File.AppendText(Application.StartupPath & "\List.txt")

Thank you

Dem

[RobDog888]

Ummm... so you are wanting to write text to that file regardless of what file is selected? Can you give an example or something as its not clear how you want it.

[Demover]

Ummm... so you are wanting to write text to that file regardless of what file is selected? Can you give an example or something as its not clear how you want it.

I got a listbox that loads when form loads code is

Dim lines() As String = IO.File.ReadAllLines(Application.StartupPath & "\List.txt")

Dim i As Integer = 0
Lst.Items.AddRange(lines)

now i created a textbox to where i can add 1 line ot text

Lst.Items.Add(TextBox1.Text)

Dim streamWriter As IO.StreamWriter

' Create the StreamWriter object

streamWriter = IO.File.AppendText(Application.StartupPath & "\List.txt")

' Write a line to the file from user inputted

' information from a text box

streamWriter.WriteLine((Me.TextBox1.Text))

' Close the file

streamWriter.Close()


ok form loads the listbox, now i want to add a file to the listbox using opendialog.


If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


Dim lines() As String = File.ReadAllLines(openFileDialog1.FileName)
Dim myWritePath As String = Application.StartupPath & "\List.txt"
Dim sw As New IO.StreamWriter(myWritePath, True)

For Each line As String In lines
sw.WriteLine(line, True)
Lst.Items.Add(line)


'IO.File.AppendText(Application.StartupPath & "\List.txt")

Next


i want to update the IO.File.AppendText(Application.StartupPath & "\List.txt")

i hope i expland this right

Dem

[Demover]

Thank You RobDog888 for your time and help.

I did it this way , if theres a better way plz let me know.

 openFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
        openFileDialog1.Title = "Select a Cursor File"
        openFileDialog1.FileName = ""
        ProgressBar1.Visible = True




        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

            Dim streamWriter As IO.StreamWriter

            Dim lines() As String = File.ReadAllLines(openFileDialog1.FileName)

            streamWriter = IO.File.AppendText(Application.StartupPath & "\List.txt")



            For Each line As String In lines

                Lst.Items.Add(line)
                streamWriter.WriteLine(line)

            Next

            streamWriter.Close()

Regards

Dem

[RobDog888]

Looks fine. Glad its working as you need now.

Ps, I added [code] tags to make it easier to read.