如何把播放列表存成文件

Question

只要写成顺序文件就行了。
如果你表示歌曲名的变量为mySong()
保存时如下：
open app.path+"\mylist.lst" for output as #1   '后缀名随便取
dim i as integer
for i =lbound(mysong) to ubound(mysong)
print #1,mysong(i)
next
close #1
读取时：
open app.path+"\mylist.lst" for input as #1
dim i as integer
do until eof(1)
redim preserve mysong(i)
i = i + 1
input #1, mysong(i)
loop
close #1