Скачивание файлов

[Sanya Z]

Как организовать скачивание файлов из инета с помощью VB. Спасибо!

[GSerg]

Заюзав апишку URLDownloadToFile.
Озадачившись Винсоком вообще и ftp через оный в частности.

[Sanya Z]

А с примером можно, а то я не понимаю

[GSerg]

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

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates (Puff0rz@hotmail.com)
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

[Sanya Z]

Огромное спасибо :D
Есть одно маленькое но:

Ваш пример работает если туда подставлять конкретные значения, а если подставить х="http://www.vbstreets.ru",
у="c:\vbstreets.ru.html" , то выдается ошибка, хотя переменные я объявляю...И ещё вопрос, как можно узнать размер файла на сервере, пока его ещё не скачал?

[Sanya Z]

Если быть точнее то ошибка такая ByRef argument type mismatch. Посмотрите, пожалуста, почему так. (Даже если файл локальный).

[Amed]

Код такой?

Private Sub Form_Load()
Dim x As String
Dim y As String

x = "http://www.ya.ru"
y = "C:\allapi.html"
DownloadFile x, y
End Sub

У меня всё ок, попробуй так:
DownloadFile ByVal x, ByVal y

А узнать размер файла можно, посылая серверу ftp-команду... Поищи на форуме или в Яндексе, такая тема была, по-моему...

[Sanya Z]

Спасибо! Теперь все работает Если не найдется кода для подсчитывания размера файла в инете, то тему можно закрывать