DOWNLOAD DE ARQUIVOS

IVOFABIANO 19/04/2004 16:55:55
#21411 Resposta escolhida

Se vc não quiser usar componentes vc pode usar a rotina abaixo.Eu uso essa rotina para fazer download de arquivos da internet e entre computadores em rede. Não se esqueça q vc deve especificar todo o caminho até o arquivo.

'-----------------------------------------------------------------------------
'declaração
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

---------------------------------------------------------------------------------------------

'chamada da função. os caminhos orige e destino ficam entre aspas...:

Download(caminho origem ou IP +
ome do arquivo, local destino +
ome do arquivo)


-----------------------------------------------
'Função:

Private Function Download(URL As String, Arq_Local As String) As Boolean
Dim Valor_retorno&

Valor_retorno = URLDownloadToFile(0, URL, Arq_Local, 0, 0)

If Valor_retorno = 0 Then

Download = True

msg "A operação de download foi realizado com sucessso !"

Else

msg"Ocorreu um erro durante o processo."

End If

End Function
-----------------------------------------------------------



Abs