[gevorgkhc]

I am developing a basic music player and I have a problem. The "Save Playlist Function" doesn't work and I'm stumped Please help!!! These commands are the ones I think have the problem. Any help will GREATLY be appreciated!!

Add File to Playlist Function(On Form "frmPlaylistFiles")

Code:

Private Sub cmdAddFile_Click()
cdFF.Filter = "Mp3 Music (*.mp3)|*.mp3|WMA Music (*.wma)|*wma"
cdFF.ShowOpen
If UCase(Right(cdFF.FileName, 4)) = ".MP3" Or UCase(Right(cdFF.FileName, 4)) = ".WMA" Then
frmPlaylistFiles.lstPlayListFiles.AddItem cdFF.FileName
MFiles = MFiles & cdFF.FileName & vbNewLine
End If
End Sub

Open Playlist Function(On Form "frmPlayListControl")

Code:

Private Sub cmdOpenPlaylist_Click()
On Error Resume Next
Dim PLSongs As String
cdFF.Filter = "HiddenMusic Playlists (*.hpl)|*.hpl"
cdFF.ShowOpen
Open cdFF.FileName For Input As #1
While Not EOF(1)
PLSongs = ""
Line Input #1, PLSongs
frmPlaylistFiles.lstPlayListFiles.AddItem PLSongs
MFiles = MFiles & PLSongs & vbNewLine
Wend
Unload Me
End Sub

Save Playlist Function(On Form "frmPlayListControl")

Code:

Private Sub cmdSavePlaylist_Click()
On Error Resume Next
cdFF.Filter = "HiddenMusic Playlists (*.hpl)|*.hpl"
cdFF.InitDir = App.Path
cdFF.ShowSave
Open cdFF.FileName For Output As #1
Print #1, MFiles
Close #1
frmPlaylistFiles.Show
Unload Me
End Sub