Como puedo borrar Archivos Temporales de Internet por codigo.

hola, !

... tengo una macro que me baja... archivos de internet, pero necesito que sean los archivos mas actualizados
... cuando me baja los archivos de internet me baja los ultimos que se tienen en los temporales
soluciono esto borrando manualmente los archivos de internet antes de correr mi macro ...

podrias crear un archivo de texto con instrucicones de D.O.S. y guardarlo con la EXTension *.vbs
- lo ejecutas en tu macro antes de iniciar el proceso por el comando Shell "c:uta a tu\archivo.vbs"
- le das un tiempo de espera "estimado" (10 a 'n' segndos) con application.wait now + timevalue("0:00:15")
- y luego se ejecutaran las instrucicones de bajar los archivos

aqui encuentras informacion de como podrias trabajar con ese tipo de directorios de temporales:
- http://www.mvps.org/dmcritchie/exce...#elimxused
- http://www.mvps.org/dmcritchie/exce...intnettemp

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Primero que nada muchas gracias por ayudarme, Estas y otras veces Hector
Miguel, sabes soy aun principiante, ademas soy contador, ya vi el link que me
enviaste, no lo entendi,no habra por ahi algo en español ya que no soy muy
bueno en ingles.

Gracias.

"Héctor Miguel" wrote:

hola, !

> ... tengo una macro que me baja... archivos de internet, pero necesito que sean los archivos mas actualizados
> ... cuando me baja los archivos de internet me baja los ultimos que se tienen en los temporales
> soluciono esto borrando manualmente los archivos de internet antes de correr mi macro ...

podrias crear un archivo de texto con instrucicones de D.O.S. y guardarlo con la EXTension *.vbs
- lo ejecutas en tu macro antes de iniciar el proceso por el comando Shell "c:uta a tu\archivo.vbs"
- le das un tiempo de espera "estimado" (10 a 'n' segndos) con application.wait now + timevalue("0:00:15")
- y luego se ejecutaran las instrucicones de bajar los archivos

aqui encuentras informacion de como podrias trabajar con ese tipo de directorios de temporales:
- http://www.mvps.org/dmcritchie/exce...#elimxused
- http://www.mvps.org/dmcritchie/exce...intnettemp

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, !

... soy aun principiante, ademas soy contador, ya vi el link que me enviaste, no lo entendi
no habra por ahi algo en espanol ya que no soy muy bueno en ingles.

no se si seas el mismo "sago" que +/- por enero de 2004 me corrijio que se llamaba (no oscar sino) octavio salazar -?-
y que por cierto, las macros sobre las que consultaba eran parecidas (y nada cerca de macros "sencillas") por lo que...
"aun principiante"... despues de ~60+ "mesesillos"... -???-

(en cualquier caso) convendria si expones el codigo que actualmente usas (para ver posibilidades de adaptacion)

saludos,
hector.

Si exactamente si soy yo, pero me dijo principiante, por que sigo aprendiendo
gracias a este foro , a personas como tu, lo cual agradesco muchisimo, ademas
he aprendido mas en este foro que en todos los libros que he comprado ( son
varios).

Espero que me pudas ayudar (otra vez) por favor, debi haber estudiado para
esto, solo me queda aprender por mi cuenta.

Te expongo el codigo.

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

Dim strArchivo As String



Sub Bajar_Archivos_Intenet()
Application.Cursor = xlWait '[o = xlIBeam o = xlNorthwestArrow]
Application.StatusBar = "Espere un momento Bajando Vectores..."
Application.ScreenUpdating = False
strArchivo = Format(Date, "yyyymmdd")
'URLDownloadToFile 0,
"http://IVANSAENZ:/pip-files/OtrosArchivos/ivansaenz/" & "PGN01_VD" & strArchivo & "_2.zip", "c:\PERSONALIZADO.zip", 0, 0

URLDownloadToFile 0,
"http://IVANSAENZ:/pip-files//VectorConsar/" &
"24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo &
"Consar.zip", 0, 0

Application.Cursor = xlDefault
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

Muchas gracias.

Saludos.