怎样将listbox中的文件列表保存起来,程序下次运行时自动读取到listbox中

Question

如题,最好有代码示范

Answer 1

自己定格式 保存在文件里 或者保存在数据库中  程序启动的时候 把纪录读出来 用listbox显示

Answer 2

Private Sub Form_Load()
Dim i As Long, s As String
Open "c:\1.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, s
        List1.AddItem s
    Loop
Close #1End SubPrivate Sub Form_Unload(Cancel As Integer)
Dim i As Long
Open "c:\1.txt" For Output As #1
    For i = 0 To List1.ListCount - 1
        Print #1, List1.List(i)
    Next i
Close #1End Sub