SoloCodigo

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