动态生成了一个m3u格式的文件,使用如下代码调用,不能调用成功,就是不能播放出来。但是,如果我把动态生成的music.m3u里面的代码copy出来用一个记事本粘贴,再保存为m3u格式的文件,调用这个文件的话可以播放。请问这是什么原因啊?谢谢了先!
<object id="song" classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95" type="application/x-oleobject" width="350" height="67">
<param name="autoStart" value="false">
<param name="enabled" value="true">
<param name="filename" value="music.m3u" />
<param name="playCount" value="1">
<param name="ShowStatusBar" value="-1">
</object>
动态生成M3U格式文件如下代码:
Dim strwriterobj As StreamWriter
strwriterobj = File.CreateText("E:\lb\music.m3u")
strwriterobj.WriteLine("<ASX Version=" & Chr(34) & "3.0" & Chr(34) & ">")
'第一首歌曲
strwriterobj.WriteLine("<Entry> <Ref href=" & Chr(34) & "情人.mp3" & Chr(34) & "/> </Entry>")
'第二首歌曲
strwriterobj.WriteLine("<Entry> <Ref href=" & Chr(34) & "喜欢你.mp3" & Chr(34) & "/> </Entry>")
'第三首歌曲
strwriterobj.WriteLine("<Entry> <Ref href=" & Chr(34) & "再见理想.mp3" & Chr(34) & "/> /Entry>")
'第四首歌曲
strwriterobj.WriteLine("<Entry> <Ref href=" & Chr(34) & "长城.mp3" & Chr(34) & "/> </Entry>")
strwriterobj.WriteLine("</ASX>")
strwriterobj.Close()