Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/02/2006, 15:18
Avatar de piojoman
piojoman
 
Fecha de Ingreso: enero-2005
Ubicación: Argentina
Mensajes: 224
Antigüedad: 20 años, 3 meses
Puntos: 3
disculpen!!! despues de buscar y buscar como loco casi llegando hasta la rendicion pude encontrar por ahi lo que buscaba, si alguien necesita esto es muy sencillo... esa api lo hace todo

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

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function BajarArchivo(URLdelsitio As String,Rutadestino As String) As Boolean
BajarArchivo = URLDownloadToFile(0&, URLdelsitio, Rutadestino, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

'URLdelsitio = Tiene que ponerse completo con el nombre del archivo y extension ej: "www.camacho.com.ar/texto.txt"
'Rutadestino = Ruta donde se guardara el archivo una vez descargado.

bye!