• Jueves 28 de Marzo de 2024, 21:55

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - destroyer

Páginas: [1]
1
Visual Basic 6.0 e inferiores / bajada de fichero desde internet
« en: Sábado 27 de Septiembre de 2003, 09:40 »
estoy realizando una aplicacion para que se actualize directamente de un servidor web. Hasta aqui todo ok se conecta baja el fichero indicado, pero cuando lo descarga en el pc lo pone con la fecha del dia. Yo quisiera que lo pusiera con la fecha original del programa, como puedo hacerlo. os envio el codigo que he utilizado.

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 Sub Command1_Click()
Dim j As Long
j = URLDownloadToFile(0, "HTTP://xxxxxx/index1.swf", _
"D:index1.swf", 0, 0)

If j = 0 Then
MsgBox ("el fichero se descargó correctamente")
Else
MsgBox ("ha ocurrido un error")
End If
End Sub

Páginas: [1]