Tamanho do arquivo de download

[MRMB]

Caros,

Gostaria de saber se tem alguma função no VB6 que retornar o tamanho de uma arquivo que vou fazer o download. Utilizo o código abaixo para fazer o download e esta fino! Funcionando.

Public Sub DownloadAtualizacao()

  On Error GoTo MostrarErro

  ' Gostaria de "pegar" o tamanho do aquivo antes de executar a linha abaixo

  URLDownloadToFile 0, _
    "http://files.pwtre.com.br/ext/update/200100915.zip", _
    App.Path & "\200100915.zip", 0, 0
  On Error GoTo 0
  
  Exit Sub
  
MostrarErro:
  Call MsgBox("Erro na realização do download" _
    & vbCrLf & "" _
    & vbCrLf & "Número do erro: " & Err.Number _
    & vbCrLf & "Descricão do erro: " & Err.Description _
    & vbCrLf & "Método: DownloadAtualizacao" _
    , vbCritical, "Atualização")
  End
  
End Sub

No caso utilizaria esse tamanho para gerar progressbar.

T+ Abraço.

[kuroi]

olhai: http://www.planet-source-code.com/vb/scrip...14&lngWId=1