هل يوجد كود التحقق من وجود ملف على النت بدون تحميله

[color= #800000;]Dim dom [color= #800000;]As Object

[color= #800000;]Set dom = [color= #800000;]CreateObject[color= #66cc66;]([color= #ff0000;]"Msxml2.DOMDocument"[color= #66cc66;])

dom.[color= #66cc66;]Load [color= #66cc66;]([color= #ff0000;]"http://somedomain.com/somefile.xxx"[color= #66cc66;])

[color= #800000;]Do [color= #800000;]While [color= #800000;]Not dom.[color= #66cc66;]parsed

[color= #800000;]DoEvents

[color= #800000;]Loop

[color= #800000;]If dom.[color= #66cc66;]parseError.[color= #800000;]Line = [color= #cc66cc;]0 [color= #800000;]Then

[color= #800000;]MsgBox [color= #ff0000;]"Not Found"

[color= #800000;]Else

[color= #800000;]MsgBox [color= #ff0000;]"Found"

[color= #800000;]End [color= #800000;]If

dom.[color= #66cc66;]abort

[color= #800000;]Dim xmlHttp

[color= #800000;]Dim httpresult [color= #800000;]As [color= #800000;]String

[color= #800000;]Set xmlHttp = [color= #800000;]CreateObject[color= #66cc66;]([color= #ff0000;]"Msxml2.xmlHttp"[color= #66cc66;])

xmlHttp.[color= #800000;]open [color= #ff0000;]"GET", file_url, [color= #800000;]False

xmlHttp.[color= #66cc66;]setRequestHeader [color= #ff0000;]"Content-Type", [color= #ff0000;]"application/x-www-form-urlencoded"

xmlHttp.[color= #66cc66;]setRequestHeader [color= #ff0000;]"Range", [color= #ff0000;]"bytes=0-0"

xmlHttp.[color= #66cc66;]send

httpresult = xmlHttp.[color= #66cc66;]getResponseHeader[color= #66cc66;]([color= #ff0000;]"Content-Range"[color= #66cc66;])

[color= #800000;]If httpresult <> [color= #ff0000;]"" [color= #800000;]Then

[color= #800000;]MsgBox [color= #ff0000;]"Found"

[color= #800000;]Else

[color= #800000;]MsgBox [color= #ff0000;]"Not Found"

[color= #800000;]End [color= #800000;]If

[color= #800000;]Dim xmlHttp

[color= #800000;]Dim httpresult [color= #800000;]As [color= #800000;]String

[color= #800000;]Set xmlHttp = [color= #800000;]CreateObject[color= #66cc66;]([color= #ff0000;]"Msxml2.xmlHttp"[color= #66cc66;])

xmlHttp.[color= #800000;]open [color= #ff0000;]"GET", file_Url, [color= #800000;]False

xmlHttp.[color= #66cc66;]send

httpresult = xmlHttp.[color= #66cc66;]Status

[color= #800000;]If httpresult = [color= #ff0000;]"200" [color= #800000;]Then

[color= #800000;]MsgBox [color= #ff0000;]"Found"

[color= #800000;]Else

[color= #800000;]MsgBox [color= #ff0000;]"Not Found"

[color= #800000;]End [color= #800000;]If