Borrar Temporales de Internet,, no no,,, BORRARLOS
Publicado por Peter Ciank (2 intervenciones) el 08/04/2008 12:47:44
Estimado,
Estoy aqui para comentarles y consultarles algo que me esta volviendo loco. He hecho un prgrama que descargar un archivo de la WEB todos los dias,,,, pero el problema es quelo descarga una vez y luego utiliza un archivo de la Memeria Cache. El problemos que me genera esto es que el archivo tiene constantes actualizaciones por lo que necesito que este archivo sea forzadamente descargado de la pagina y que el temporal se elimine completamente. He probado con dos: "URLDownloadToCacheFile" o "URLDownloadToFile". El que mejor me funciono fue el primero.
Este es el Codigo que estoy utilizando:
'**************** Funciones y vAriables de Descarga Privadas *********************************
Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long
Dim tmp As String, fName As String, Pos As Long, fPath As String
'***************************************************************************************************
'*************************************** Funciones Publicas ************************************
' Bajo Archivo a carpeta temporal de internet
' Lo muevo a la carpeta en donde lo quiero poner
' Elimino el archivo temporal utilizado.
Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
If URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0) = 0 Then DownloadFile = Trim(szFileName)
End Function
Public Sub DescargarLic()
On Error GoTo Err
tmp = ""
tmp = DownloadFile("http://metropublic.com.ar/software.txt")
'Extraccion de parametro x
fName = Mid$(tmp, InStrRev((tmp), ""))
Pos = InStr(1, fName, ".")
fName = Mid$(fName, 1, Pos - 4) & Mid$(fName, Pos)
fPath = "C:Program Filessoftware.txt"
'Muevo de temporal a carpeta del sistema
FileCopy tmp, fPath
'Elimino el Archivo
Kill tmp
End If
Exit Sub
Err: MsgBox "Error", vbCritical + vbOKOnly, "Error!"
End Sub
Espero me puedan ayudar con este problema..... Explico un poco. El sistema toma una configuracion de este archivo. Si este archivo no se descarga, siempre es la misma y no sirve. Se que se puede eliminar o tambien descargarlo de otra manera tal que ni aparezca por los temporales.
Saludos y muchisimas gracias por todo y a todos!
Saludos
Peter
Estoy aqui para comentarles y consultarles algo que me esta volviendo loco. He hecho un prgrama que descargar un archivo de la WEB todos los dias,,,, pero el problema es quelo descarga una vez y luego utiliza un archivo de la Memeria Cache. El problemos que me genera esto es que el archivo tiene constantes actualizaciones por lo que necesito que este archivo sea forzadamente descargado de la pagina y que el temporal se elimine completamente. He probado con dos: "URLDownloadToCacheFile" o "URLDownloadToFile". El que mejor me funciono fue el primero.
Este es el Codigo que estoy utilizando:
'**************** Funciones y vAriables de Descarga Privadas *********************************
Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long
Dim tmp As String, fName As String, Pos As Long, fPath As String
'***************************************************************************************************
'*************************************** Funciones Publicas ************************************
' Bajo Archivo a carpeta temporal de internet
' Lo muevo a la carpeta en donde lo quiero poner
' Elimino el archivo temporal utilizado.
Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
If URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0) = 0 Then DownloadFile = Trim(szFileName)
End Function
Public Sub DescargarLic()
On Error GoTo Err
tmp = ""
tmp = DownloadFile("http://metropublic.com.ar/software.txt")
'Extraccion de parametro x
fName = Mid$(tmp, InStrRev((tmp), ""))
Pos = InStr(1, fName, ".")
fName = Mid$(fName, 1, Pos - 4) & Mid$(fName, Pos)
fPath = "C:Program Filessoftware.txt"
'Muevo de temporal a carpeta del sistema
FileCopy tmp, fPath
'Elimino el Archivo
Kill tmp
End If
Exit Sub
Err: MsgBox "Error", vbCritical + vbOKOnly, "Error!"
End Sub
Espero me puedan ayudar con este problema..... Explico un poco. El sistema toma una configuracion de este archivo. Si este archivo no se descarga, siempre es la misma y no sirve. Se que se puede eliminar o tambien descargarlo de otra manera tal que ni aparezca por los temporales.
Saludos y muchisimas gracias por todo y a todos!
Saludos
Peter
Valora esta pregunta
0