Как узнать информацию о скачиваемом с сервера файле

[Solmir741]

Доброго времени суток.
Столкнулся со следующей проблемой. Пользуюсь известной констркуцией:

Public Sub Save(Ссылка_на_файл As String, путь As String, наименов_файла As String)
    СсылкаНаФайл$ = Ссылка_на_файл
    ПутьДляСохранения$ = путь '
    ' скачиваем файл из интернета
   DownloadFile СсылкаНаФайл$, ПутьДляСохранения$

End Sub

Function DownloadFile(ByVal url$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
   ' и сохраняет его под именем LocalPath$
   Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next ': Сообщение ("Ошибка сохрания интернет-файлов закупки")

    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(url$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statusText = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody

        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
   End If
    Set XMLHTTP = Nothing
End Function

Чтобы правильно сохранить файл данной конструкцией, необходимо знать расширение файла.
Однако при использовании ссылок, типа: ... /download/download.html?id=7706874&epz=true
расширение файла не указано. Подскажите, как можно узнать расширение файла в моей ситуации.

[EducatedFool]

Чтобы правильно сохранить файл данной конструкцией, необходимо знать расширение файла.

зачем?
вовсе необязательно
можно файл сохранить под любым именем, с любым расширением (или без него),
если дальше вы открываете файл средствами макросов

обычно скачиваются файлы одного типа, - можно в коде прописать фиксированное расширение

если картинки у вас загружаются, — пропишите JPG, - независимо от типа картинки, Windows потом сможет открыть JPG файл

[Solmir741]

В том то и хитрость, что расширения могут быть разные. Т.е. это может быть документ Word, а может быть скан с расширением .tif. Если открывать файл без расширения, ОС задает вопрос при помощи чего открыть, каждый раз нужно выбирать вручную...

[doober]

Если вы берете ссылку с сайта,расширение файла присутствует на странице,его только найти надо.
Если с XML файла,аналогично

                    <document>
                     <guid>b984cbef-9ba1-4ea2-b1bd-450e152f8bca</guid>
                       <createDateTime>2013-09-06T17:02:12</createDateTime>
                       <fileName>Dogovor_postavka_C.rar</fileName>
                     <description>Типовой договор</description>
                      <url>http://zakupki.gov.ru/223/purchase/public/download/download.html?id=2611633</url>
                    </document>

.

[Solmir741]

Может я не вижу, но попробуйте найти расширение файла в HTML коде, ссылка следующая
http://zakupki.gov.ru/223/purchase/p...27999&epz=true
Требуется сохранить файл
КД о закупке ремонт подкрановых путей (2).doc

[EducatedFool]

Вот так будет работать:

Function DownloadFile(ByVal url$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
    ' и сохраняет его под именем LocalPath$
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next        ': Сообщение ("Ошибка сохрания интернет-файлов закупки")

    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(url$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statusText = "OK" Then
        source_filename$ = Split(XMLHTTP.getresponseheader("Content-Disposition"), """")(1)
        extension$ = Mid(source_filename$, InStrRev(source_filename$, ".")) ' например, .doc

        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody

        ADOStream.SaveToFile LocalPath$ & extension$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
    End If
    Set XMLHTTP = Nothing
End Function

[Solmir741]

Огромное спасибо, все работает!