VB 2008; How to add text from text file to combobox

[Flame_Warrior]

Hello everyone. I was wondering how i can have a saved log (for bookmarks for a web browser) in the form of a txt file be added to a combo box. Aka, i have a txt file that stores the saved bookmarks, and i want them to be uploaded to a combo box when the form loads. Here is the code so far;

CType(tabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("Google.com")
Dim sFileName As String = "C:\Stealth Browser\bookmarks.txt"
Dim myFileStream As New System.IO.FileStream(sFileName, _
FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
Dim myReader As New System.IO.StreamReader(myFileStream)
Dim sFileContents As String = myReader.ReadToEnd()
ComboBox1.Text = sFileContents
myReader.Close()
myFileStream.Close()

What this does wrong, is it only uploads the last line of the txt file. How do i add every line as a separate item in the collections of the combo box? Thanks in advanced.

[maclone]

Going the hard way...

        If File.Exists("C:\Stealth Browser\bookmarks.txt") Then
            Dim fileSR As New StreamReader("C:\Stealth Browser\bookmarks.txt")
            Do Until fileSR.EndOfStream
                ComboBox1.Items.Add(fileSR.ReadLine())
            Loop
            fileSR.Close()
        Else
            MessageBox.Show("The file doesn't exist.")
        End If

[Flame_Warrior]

Alright. now im having trouble adding things to this txt file.

I have a listbox, a textbox, and two buttons. button 1 is the add button. it adds the textbox1.text to the listbox. Then the other button saves the selected item in the listbox to the txt file. How do you think i could do this effectively? Heres my code for the save button;

Dim sFileName As String = "C:\Stealth Browser\bookmarks.txt"
Dim myFileStream As New System.IO.FileStream(sFileName, _
FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.None)

Dim myWriter As New System.IO.StreamWriter(myFileStream)

myWriter.WriteLine(ListBox1.Text)

myWriter.Flush()

myWriter.Close()
myFileStream.Close()
Form1.ComboBox1.Items.Add(ListBox1.Text)

Thanks in advanced.

[maclone]

Dim fileWR As New StreamWriter("C:\Stealth Browser\bookmarks.txt", True)
fileWR.WriteLine(ListBox1.SelectedItem)
fileWR.Close()

[Flame_Warrior]

Sweet. Works fine. Thanks. Also, is it possible to remove a line of a txt file?

[maclone]

Dim fileSR As New StreamReader("D:\bookmarks.txt")
Dim tempText As String = fileSR.ReadToEnd
fileSR.Close()
Dim fileWR As New StreamWriter("D:\bookmarks.txt")
fileWR.Write(tempText.Replace(vbCrLf & ListBox1.SelectedItem, Nothing))
fileWR.Close()

It works, but if you got 2 items like:
123abclol
123abc
and you want to remove '123abc', the other item will be edited to 'lol'.

And to fix that you'll need to find your own way, so I didn't code everything you need for your browser.

[Flame_Warrior]

Thanks for your time. Im deciding to just kill the file then recreate it then put the combobox items into the file.

Trust me, you are not even close to writing the whole web browser. :] just the part i was unfamiliar with.

Now time to be Hippocratic. Do you know how i would go about checking if a directory exists, then if it doesnt, create the folder and the file.

Thanks again for your time. I really appreciate it.

[The Maffyx]

Try this make sure to put this in the imports if it isnt there already:

imports System.IO

then put this where you need it:

If Not Directory.Exists(Path) then
  Directory.CreateDirectory(Path)
End If

[Flame_Warrior]

Thanks. i forgot to say that i figured this thing out but thanks anyway :]

[The Maffyx]

Np, and that's good to hear ^_^