想做一个类似于播放器功能:程序一开始把硬盘里的指定路径下的音乐格式文件名称、路径、点击次数写入到文本文件,当打开播放器时把文本文件里面的歌曲名称、路径读到播放器里,如果播放了某一条歌曲就在那个点击次数后面加1,硬盘里的歌曲可能随时变化就是有些会添加,修改,删除歌曲),怎样来实现这个功能??

解决方案 »

  1.   

    就是文件夹文件遍历和数据的文本读写啊,先是dir()遍历文件夹,内容写到文本中,list显示后双击回写
      

  2.   

    楼主可以使用Access数据库,应该更简单和直观。至于使用文本文件,使用Open语句操作即可如何读/写 Binary File'以下是读取Binary file的程式
    Dim Buff() as ByteOpen "d:\csys\8504\ctc" For Binary Access Read As #1
    ReDim Buff(267)Do While Not EOF(1)
       Get #1, , Buff  '每次读268个byte进来
       'Call 处理Buff 的Routine
    Loop
    Close #1'以下是写入Binary file的程式
    Dim Buff() As Byte
    Open "c:\tc" For Binary Access Write As #1
    ReDim Buff(10)
    Buff = StrConv("这是一个11", vbFromUnicode)
    Put #1, , BuffReDim Buff(1)
    Buff(0) = 210
    Buff(1) = 70
    Put #1, , Buff
    Close #1
    End Sub
      

  3.   

    文本文件?
    http://zhidao.baidu.com/question/90973587.html
    这里看看吧,会有你想要的。