Codigo Plus

Descargar Archivo
Titulo	Bajar archivo de Internet
Descripcion	Sencillo codigo para bajar un archivo de Internet
Descargas	922
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #008000">' En el TextBox1 pon el archivo a bajar : http://www.codigoplus.com/algo.gif</span>
<span style="color: #008000">' en el TextBox2 va el destino : c:\algo.gif</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> URLDownloadToFile Lib <span style="color: #B22222">"urlmon"</span> Alias <span style="color: #B22222">"URLDownloadToFileA"</span> (<span style="color: #0000FF">ByVal</span> pCaller <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> szURL <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> szFileName <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> dwReserved <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> lpfnCB <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ERROR_SUCCESS <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 0
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> BINDF_GETNEWESTVERSION <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H10
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> INTERNET_FLAG_RELOAD <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H80000000
   
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click()
   <span style="color: #0000FF">Dim</span> sSourceUrl <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>
   <span style="color: #0000FF">Dim</span> sLocalFile <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>
   
   sSourceUrl = Text1
   sLocalFile = Text2
   
   Screen.MousePointer = vbHourglass
   
   Command1.Caption = <span style="color: #B22222">"Espera..."</span>
   Command1.Enabled = <span style="color: #0000FF">False</span>
   
   DoEvents
   
   <span style="color: #0000FF">If</span> DownloadFile(sSourceUrl, sLocalFile) <span style="color: #0000FF">Then</span>
     Screen.MousePointer = vbNormal
     MsgBox <span style="color: #B22222">"Archivo bajado"</span>
   <span style="color: #0000FF">Else</span>
     Screen.MousePointer = vbNormal
     MsgBox <span style="color: #B22222">"Error"</span>
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
   Command1.Enabled = <span style="color: #0000FF">True</span>
   Command1.Caption = <span style="color: #B22222">"Bajar Archivo"</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> DownloadFile(sSourceUrl <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, sLocalFile <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>
  DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span></font></pre>