Ya uso Vb,net pero estoy corrigiendo un programa que hice con vb6. Es un poco grande y no quiero pasarlo a vb.net.
El programa descarga archivos pero ocurre que NO descarga archivos que sean demasiado grandes.
El código que uso para descargar es este:
Código
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 Dim Contador As Integer Const ERROR_SUCCESS As Long = 0 Const INTERNET_FLAG_RELOAD As Long = &H80000000 Const BINDF_ASYNCHRONOUS = &H1 Const BINDF_ASYNCSTORAGE = &H2 Const BINDF_NOPROGRESSIVERENDERING = &H4 Const BINDF_OFFLINEOPERATION = &H8 Const BINDF_GETNEWESTVERSION = &H10 ' El funcionamiento del lazo debe recuperar la más nueva versión de los datos. Const BINDF_NOWRITECACHE = &H20 Const BINDF_NEEDFILE = &H40 Const BINDF_PULLDATA = &H80 Const BINDF_IGNORESECURITYPROBLEM = &H100 Const BINDF_RESYNCHRONIZE = &H200 Const BINDF_HYPERLINK = &H400 Const BINDF_NO_UI = &H800 Const BINDF_SILENTOPERATION = &H1000 Const BINDF_PRAGMA_NO_CACHE = &H2000 Const BINDF_FREE_THREADED = &H10000 Const BINDF_DIRECT_READ = &H20000 Const BINDF_FORMS_SUBMIT = &H40000 Const BINDF_GETFROMCACHE_IF_NET_FAIL = &H80000 Public Function DownloadFile(URL As String, _ LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0&, URL, LocalFilename, BINDF_ASYNCHRONOUS , 0&) If lngRetVal = 0 Then DownloadFile = True End Function