Advertisement
ASP_Volume3 VB function enhancement #44765

load file to listbox

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 http://www.cyberway.com.sg/~dyrws 4 more app

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
*** 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
Original Comments (3)
Recovered from Wayback Machine