Data from files

[bluehairman]

I'm working on a web browser and im stuck on favorites. How would I make it so that vb6 opens up a file (that can be anywhere) and then display the data in a list. And also how to save things into the files so that when you open next time it's there. Thanks

[gavio]

Here's a way (needs a ListBox):

'to save it...
Dim ff As Integer: ff = FreeFile
 
    'open it For Append, to only add something...
    Open App.Path & "\favorites.dat" For Append As #ff
        Print #ff, "http://www.myNewFavoriteSite.com"
    Close #ff
 
'to load it...
Dim i As Integer
Dim ff As Integer: ff = FreeFile
Dim line As String
 
    'add each line to a ListBox...
    List1.Clear
        Open App.Path & "\favorites.dat" For Input As #ff
            Do Until EOF(ff)
                Line Input #ff, line
                    List1.AddItem line
            Loop
        Close #ff

[bluehairman]

Ok. Thanks. That helps me

[bluehairman]

Okay. I have anothe problem. I can't remove items from the list (selected items) and even if I do when I close favorites then go back its still there. How do I fix these? Also if anyone knows how to block popups that would be appreciated also.

[gavio]

If you wish to remove some item from the list, then you need to open that file in the Output and not Append mode and export the complete list with a simple loop, what would look something like this:

Dim ff As Integer: ff = FreeFile
Dim i As Integer
 
    Open App.Path & "\favorites.dat" For [B]Output[/B] As #ff
        For i = 0 To List1.ListCount - 1
            Print #1, List1.List(i)
        Next i
    Close #ff

I used Append before to demonstrate how to just add something to an already existing file. This is something completely different.

[bluehairman]

But does this code

Dim ff As Integer: ff = FreeFile
Dim i As Integer
 
    Open App.Path & "\favorites.dat" For Output As #ff
        For i = 0 To List1.ListCount - 1
            Print #1, List1.List(i)
        Next i
    Close #ff

Remove the selected item?

[DigiRev]

ListBox.RemoveItem ListBox.ListIndex

should remove the selected item.