DUVIDA SIMPLES - DOWNLOAD

MATHEUSALVES 20/08/2010 21:16:06
#350846
Como faço downloads de arquivos pelo vb?

Exeplo: Estou feliz em meu computador, e quero baixar algum arquivo da internet pelo programa.
Como faço?
FABAO 20/08/2010 23:06:21
#350851 Resposta escolhida
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


Function Download(ByVal URL As String, ByVal outFile As String) As Boolean
Dim i As long

If (outFile = [Ô][Ô]) Or (URL = [Ô][Ô]) Then
Download = False
Else
If Not (InStr(URL, [Ô]//[Ô])) Then URL = [Ô]http://[Ô] & URL
i = URLDownloadToFile(0, URL, outFile, 0, 0)
If i = 0 Then
Download = True
Else
Download = False
End If
End If
End Function



depois chame a função assim:

Download ([Ô]www.meusite.com.br\arquivo.zip[Ô], [Ô]C:\arquivo.zip[Ô])
MATHEUSALVES 20/08/2010 23:11:07
#350852
Está dando [Ô]Syntax ERROR[Ô]
MATHEUSALVES 21/08/2010 22:49:18
#350910
UP! ;X
MSMJUDAS 23/08/2010 08:35:55
#350961
Em que linha está dando o erro?
MATHEUSALVES 23/08/2010 12:38:51
#350990
Nessa linha:
Download ([Ô]www.meusite.com.br\arquivo.zip[Ô], [Ô]C:\arquivo.zip[Ô])
JAMESBOND007 23/08/2010 13:33:43
#350992
tente assim 
([Ô]www.site.com/arquivo.exe[Ô], App.Path & [Ô]\arquivo.exe[Ô])
CLAUDIO1404 24/08/2010 16:15:47
#351125
Opa Matheus...

Como você está chamando esta função?
Você pode chamá-la de 2 formas:

Retorno=Download ([Ô]www.meusite.com.br\arquivo.zip[Ô], [Ô]C:\arquivo.zip[Ô])

ou

Call Download ([Ô]www.meusite.com.br\arquivo.zip[Ô], [Ô]C:\arquivo.zip[Ô])

Se colocar só Download ([Ô]www.meusite.com.br\arquivo.zip[Ô], [Ô]C:\arquivo.zip[Ô]) na linha de comando vai dar erro mesmo.

Abraço,
MATHEUSALVES 28/08/2010 15:36:39
#351570
Obrigado a todos ai, ajudaram muito.
GNCNET 28/08/2010 22:49:53
#351595
Cara, andar por este site é tão legal e você fica borrando ele... todo mundo aqui está te ajudando
TECLA 28/08/2010 23:11:08
#351598
Citação:

:
Obrigado a todos ai, ajudaram muito.



Se o problema foi resolvido, ENCERRE o tópico!
Tópico encerrado , respostas não são mais permitidas
Voltar