MP3Catalogue

Option Explicit
Dim i As Integer
Dim s As String

Private Sub AddBut_Click()
On Error Resume Next
List1.AddItem Text1.Text
Text1.Text = ""
End Sub

Private Sub command2_click()
On Error Resume Next
Open "mp3.txt" For Output As #1
For i = 0 To List1.ListCount
Print #1, List1.List(i)
Next i
Close 1
End Sub

Private Sub Command3_Click()
On Error Resume Next
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command4_Click()
On Error Resume Next
Unload Me
End Sub

Private Sub Command5_Click()
End Sub

Private Sub Form_Load()
On Error Resume Next
Open "mp3.txt" For Input As #1
While EOF(1) = 0
Input #1, s
List1.AddItem s
Wend
Close 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
command2_click
End Sub

Private Sub List1_Click()
Text4.Text = List1.ListCount
End Sub

Private Sub mnuExit_Click()
On Error Resume Next
Unload Me
End Sub