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

[НиколайП]

использую такой код:

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 Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function

Private Sub Command7_Click()
Call DownloadFile(Text2.Text, "c:/55555.jpg")
End Sub

как сделать так что бы файл закачивался в (App.Path & "\img\Text5.Text")
название файла ,под которым файл нужно сохранить, будет находиться в Text5.Text.
И возможно ли сделать прогресбар для наблюдения за закачкой файла ?

[keks-n]

Выкинь эту бяку и скачай в кирпичах качалку от Тёмыча

[НиколайП]

эта "бяка" необходима для функционирования программы ... , я не пишу чисто download, функция закачки - необходимая часть программы.

[keks-n]

Ну я и говорю, скачай в кирпичах!
Там и прогресс отследить можно и многое другое, а качалка - модуль класса

З. Ы. Скачать в кирпичах - значит зайти на раздел форума Кирпичный завод и скачать оттуда нужный в программе компонент, причём лежат они в виде исходного кода, а не OCX или DLL.

[Kovu]

как сделать так что бы файл закачивался в (App.Path & "\img\Text5.Text")
название файла ,под которым файл нужно сохранить, будет находиться в Text5.Text.

Как как

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

App.Path+"\img\"+Text5.Text


[НиколайП]

Как как

App.Path+"\img"+Text5.Text

не пролазит ...

Call DownloadFile(Text2.Text, "C:\img" & Text5.Text & "")

этот вариант рабочий
если делаю так:

Call DownloadFile(Text2.Text, "App.Path+"\img"+Text5.Text")

прога ругается на "img"
эксперементировал по разному, но никак не могу подогнать ...
Если кто знает помогите, пожалуйсто.

[НиколайП]

попробовал сделать так:

Call DownloadFile(Text2.Text, "App.Path \img\" & Text5.Text & "")

, так у меня файл сохранился под именем Admin1imgimg4112.jpg , , где то я с запятыми и скобками разобраться не могу ...

[НиколайП]

вычислил правильный вариант:

Call DownloadFile(Text2.Text, App.Path & "\img\" & Text5.Text & "")

спасибо Всем кто принял участие в обсуждении.