Я делаю плеер т.е. уже сделал почти у меня есть плейлист сохраняю я его таким кодом:
Open "c:/PlayList.nam" For Output As #1
Close #1
Open "c:/PlayList.nam" For Append As #1
For w = 0 To List1.ListCount
sTemp = List1.List(w)
If sTemp <> "" Then
Print #1, List1.List(w)
End If
Next
Close #1
он сохраняется все хорошо
потом смотрим файл плейлиста C:\PlayList.nam там написано:
01 Mein Herz Brennt.mp3
02 Links 2 3 4.mp3
03 Sonne.mp3
все как надо
НО когда я начинаю заружать этот файл этим кодом:
On Error Resume Next
Open "c:/PlayList.nam" For Input As #1
Do Until EOF(1)
Input #1, PLST1
List1.AddItem PLST1
Loop
Close #1
то у меня в Листе получается почему то в место:
01 Mein Herz Brennt.mp3
02 Links 2 3 4.mp3
03 Sonne.mp3
этого вот это безобразие
:
1
Mein Herz Brennt.mp3
2
Links 2 3 4.mp3
3
Sonne.mp3
______________________________________
ПОЧЕМУ уже часа два возился и нечего
