跪求如何判断一个网站的目录或则文件是否存在

[红色银狐]

希望高手给个指点,或则给段代码,先谢了.

[VBToy]

判断文件，用internet transfer控件：
Dim c As String
Dim h() As String
Dim url As String
url = "http://www.xxx.com/xxx.asp"
Inet1.OpenURL url
c = Inet1.GetHeader()
h = Split(c, vbCrLf)
If InStr(1, h(0), "HTTP/1.1 404", vbTextCompare) Then
MsgBox "没有找到文件"
ElseIf InStr(1, h(0), "HTTP/1.1 200 OK", vbTextCompare) Then
MsgBox "找到文件"
End If

[红色银狐]

好的,先看看,如果可以马上揭贴.

[VBToy]

再加一个判断，(目录存在，但服务器不允许查看目录）:
ElseIf InStr(1, h(0), "HTTP/1.1 401", vbTextCompare) > 0 Then
MsgBox "找到目录"
目录不存在时，与文件不存在返回结果相同。

[红色银狐]

不错可以揭贴了,谢谢VBToy.