by Dua Yong Rew (2 Submissions)
Category: VB function enhancement
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
2 simple code that save items to a file and the other that load items to the listbox from the file visit my homepage at https://www.cyberway.com.sg/~dyrws 4 more app
*** The Save Function ***
Open App.Path & "\" & "playlist.dyr" For Output As 1
For x = 0 To List1.ListCount - 1
List1.ListIndex = x
Print #1, List1.Text
Next
Close 1
*** The Load Function ***
Open App.Path & "\" & "playlist.dyr" For Input As 1
Do Until EOF(1)
Line Input #1, st
List1.AddItem st
Loop
Close 1