Существует ли файл в интернете.

[zona09]

1.
Нужен простой код.
Например существует ли файн www.google.com/1.html
False or True.

2.
Например считать страницу www.google.com/1.txt со значениеми.
Например если страница www.google.com/1.txt с содержимым 1, прога запускается.

Спасибо.

[dr.MIG]

Таки проверить наличие или считать? Отправить запрос серверу и посмотреть что он ответит. Подробнее см. FAQ, топик про POST/GET запросы.

[Хакер]

zona09
1)
В интернете нет файлов. В интернете есть ресурсы. Если ресурс недоступен, будет возвращён специальный State-код (404, 302 или какой-то иной).

Т.е. необходимо произвести HEAD-запрос.

2) WinHTTP.

[ALX_2002]

Ммм.. Ну к примеру так

Код: Выделить всё


Dim XmlHttp

Set XmlHttp = CreateObject("Microsoft.XmlHttp")

URl = "http://www.google.ru"

XmlHttp.Open "GET",URL,False
Xmlhttp.Send

If XmlHttp.Status = 200 Then
   MsgBox "Файл Существует",vbInformation
Else
   MsgBox XmlHttp.StatusText,vbCritical
End if


[zona09]

Спасибо, то что мне надо.. а насчет 2 вопроса можеш скинуть пример?.

[Хакер]

ALX_2002
Ну и какого фига GET вместо HEAD?

[ALX_2002]

ALX_2002
Ну и какого фига GET вместо HEAD?

Ну наверное я чего то не знаю Но вроде как запросы бывают GET и POST ? С HEAD не пробывал.

P.S Попробывал. Ушёл читать, как это пашет


P.P.S WOOHOO !!! Ваще отлично ! Только шапку файла получает. Супер !!! Спасиб за инфу

[ALX_2002]

Спасибо, то что мне надо.. а насчет 2 вопроса можеш скинуть пример?.

Вот по второму

http://bbs.vbstreets.ru/viewtopic.php?p=6681251#6681251

[tyomitch]

Ммм.. Ну к примеру так

Код: Выделить всё

Dim XmlHttp

Set XmlHttp = CreateObject("Microsoft.XmlHttp")

URl = "http://www.google.ru"

XmlHttp.Open "GET",URL,False
Xmlhttp.Send

If XmlHttp.Status = 200 Then
   MsgBox "Файл Существует",vbInformation
Else
   MsgBox XmlHttp.StatusText,vbCritical
End if


Криво как-то. Как минимум, редиректы надо считать за существующие ресурсы. А также 100 и т.п.

[ALX_2002]

2 tyomitch: Ну так круто автор вроде не просил