Progress Bar

[Vellan]

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
How to do progress bar for this code, which download file from remote server?

[GSerg]

No way for this code.

[Vellan]

А для какого можно?

[Amed]

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
PBar.Max = ProgressMax
If Progress = -1 Then
Exit Sub
Else
If Progress <> ProgressMax Then
PBar.Value = Progress
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Else
PBar.Value = ProgressMax
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Exit Sub
End If
End If
End Sub

или такой вариант:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub

или такой вариант:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub

[Vellan]

тока где она файлы качает?

[Amed]

Уууух, извиняюсь - этот код для WebBrowser я совсем не в тему вставил...

А чтобы можно было прогресс мерять, - сам подумай, - надо знать полный размер файла...

После этого в процессе загрузки пользуйся формулой:

% загрузки = 100 * (уже загружено) / (полный размер файла)...

Так что сначала надо узнать размер "того" файла...

[Vellan]

Тогда вопрос. Как цепануть кол-во скачанных байт? Они должны в Tempif валяться, а как узнать где точно?

[Amed]

Мне кажется, что файл в процессе загрузки не пишется в Temporary Internet Files...
Я думал, что в Вашей программе он загружается в переменную типа String или Variant. В этом случае количество загруженных байт:
Len(Ваша_Переменная)