Preciso fazer download de arquivos usando o vb

[Valdir Scarin 0]

Amigos,O negocio é simples, tenho um programa em vb que precisa baixar um arquivo do servidor, o download será acionado quando o usuario der um click em um botão, como fazer isso?

[Veber 0]

Option ExplicitPrivate Declare Function DoFileDownload Lib "shdocvw" _    (ByVal lpszFile As String) As LongPrivate Sub Command1_Click()   Dim sDownload As String   sDownload = StrConv("http://www.nasa.gov/images/content/62066main_image_feature_193_jwfull.jpg", vbUnicode)   Call DoFileDownload(sDownload)End Sub

[Valdir Scarin 0]

Parceiro ... o que é essa CALL DOWNLOAD AI Q TU TÀ CHAMANDO ^?

[Valdir Scarin 0]

ASP [/tr][tr] On Error Resume Next

 

Dim d() As Byte

Dim WinHttpReq As Object

Dim Objfso As Object

 

Set WinHttpReq = CreateObject("WINHTTP.WinHttpRequest.5.1")

Set Objfso = CreateObject("Scripting.FileSystemObject")

 

WinHttpReq.Open "GET", strUrlOrigem, False

WinHttpReq.Send

 

If Err.Number <> 0 Then

Error = Err.Description

Status = "Erro"

Else

Open strPathDestino For Binary As #1

d() = WinHttpReq.ResponseBody

Put #1, 1, d()

Close

Text1.Text = WinHttpReq.Status & " - " & WinHttpReq.StatusText

Picture1.Picture = LoadPicture("C:\1.gif")

Error = "0"

Status = "Arquivo salvo com sucesso."

End If

 

WinHttpReq.Close

[/tr]

Amigos !!!! eu sou o CARA !!!! LI TODA A p**** DO MSDN PARA ACHAR MAIS ACHEI .... caso alguem queria pagar bem para eu trabalhar em vossa empresa ... é só me contactar

[<¥mlc¥>Pernalonga 0]

cara, na verdade, o q tufez, kd o arquivo q ele vai puxa da webtu he MALUCO meu

[Veber 0]

[ -- ISTO É A CHAMADA A API DO WINDOWS -- ]Private Declare Function DoFileDownload Lib "shdocvw" _ (ByVal lpszFile As String) As Long[ -- EXEMPLO DE CLICK NUM BOTAO PRA FAZER O DOWNLOAD --]Private Sub Command1_Click()[ -- SDOWNLOAD É UMA VARIAVEL QUE GUARDA A ORIGEM DO ARQUIVO --] Dim sDownload As String sDownload = StrConv("http://www.nasa.gov/images/content/62066main_image_feature_193_jwfull.jpg", vbUnicode)[ -- DEPOIS VOCE CHAMA A API PASSANDO O CAMINHO DO ARQUIVO --] Call DoFileDownload(sDownload)[ -- SÓ --]End SubFlows

[christianhess 0]

tah, e agora, como saber o nome do arquivo e o tamanho dele??????