destroyer2000
21 de Diciembre del 2009

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

duverney1
21 de Diciembre del 2009

yo tenía un problema parecido, lo que me di cuenta es que cada archivo tiene 3 fechas ( dale botón derechi propiedades ) la fecha en que fue creado, la fecha de modificación y la de acceso, de esas fecha puedes sacar la que te interesa.
Por la red encuentras las funciones que te dan cada fecha de un archivo, si no lo hallas escribeme y te las doy.
( espero haberte entendido y que era eso lo que necesitabas )

Saludos

tere
21 de Diciembre del 2009

URLDownloadToFile