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

[Acid Demon]

Помогите - мне надо организовать "скачку файлов", скажем типа
1.2.com/board/add.gif
1.2.com/board/t_options.gif
1.2.com/board/logo4.gif
1.2.com/board/t_new.gif
1.2.com/board/rar.gif,
чтобы этот список в листбоксе хранился
скачать, кинуть в каталог C:\1\1.2.com\board.

В общем надо код выкачки с инета, а также выдирания построчно текста с листбокса. Плиз хэлп.

[Acid Demon]

Желательно пишите в асю
325723345

[Alexanbar]

Посмотри на http://www.vbip.com/

[OldRunaways]

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

'API-функция
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

[Acid Demon]

А не подскажешь - как типа организовать.

[GSerg]

А это типа непонятно из приведённого кода?

[Бяка]

А как зделать так чтобы я клацнул по ссылачке правой кнопочкой и нажал " скачать " и етот URL автоматом добавился мене в листбокс ?