到底怎么判断网络文件的存在，我疯了
我找了这段代码
Inet1.OpenURL "http://bbs.jdztv.net/qq.mp3 "
aa = InStr(Inet1.GetHeader, "404 ")
If aa <> 0 Then
MsgBox "网页不存在！ "
Else
MsgBox "网页存在！ "
End If
这个代码好像是判断网页是否存在的，但是我要判断的是音乐文件是否存在？？
请问怎么搞？？？
以下内容可以不看：
-----------------------------------------------
=============================================
有兴趣的可以听我讲下我要做什么：
在vb中我用windows medi player控件加入了背景音乐。由于不能把音乐嵌入到exe内部，所以我选择了网络音乐。总共一首歌曲，但是我想加入5个地址备用。如果前面的地址不能用了。自动用下一个播放。
请问怎么判断地址失效 或者 播放出错 而播放下一个？
===========================================
如果上面的都不能回答就这样吧。
谁能告诉我怎么判断播放失败，就是说没东西播应该会返回一个错误吧。有错误就播放下一个地址
[解决办法]
'*************************************************************************
'**模 块 名：GetResFile
'**说 明：将自定义资源中的文件释放出来
'**创 建 人：马大哈
'**描 述：紫水晶工作室 http://www.m5home.com
'**日 期：2007年5月24日
'**版 本：V3.0
'**描 述：直接使用二进制写,不需要再指定文件大小了.
'**修 改 人：马大哈
'**日 期：2007年5月26日
'*************************************************************************
Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
Dim bFile() As Byte
Dim Counter As Long
bFile = LoadResData(ResID, "CUSTOM ") '将自定义资源中资源读入数组
If Dir(FileName) = " " Then '只有文件不存在时,才释放
Open FileName For Binary As #1
Put #1, , bFile
Close #1
End If
End Sub
把以上的代码保存为GetResFile.bas,并在工程中添加.
然后把你的MP3以自定义资源的方式加入工程(资源文件编辑器里面)
记下每首歌的资源ID,就可以使用以下语法释放:
GetResFile 101,app.path & "\1.mp3 "
