Api Download

[d(-_-)b]

Bueno esto es un Api Download, agregen un Texbox y un boton

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
  DoFileDownload StrConv(Text1.Text, vbUnicode)
End Sub

listo esto es todo, descarga muy bien

[Sancho.Mazorka]

Dominicano creo que la mayoria de los que estamos aqui conocemos esa funcion, lo malo es que es horrible, y no se si la detecta el AV como virus, igualmente gracias por tu aporte!

EDIT: Perdon, no tiene el color blanco el foro para poner en el nick tuyo, x eso esta el negro.


Sancho.Mazorka   

[ranslsad]

Muchas gracias amigo, la agregare a mi libreria de codigos

Salu2

Ranslsad