Controlar que un archivo llegue cada 10 minutos

[SeNdEr2003]

Buenas

Necesito en una aplicacion que me controle que llegue un archivo .dat cada diez minutos, como controlo esto?, como se cuando llega y cuando no? llega por emessenger a una carpeta local cada diez minutos y yo por software usando VB6 si o si debo controlar que llegue y sino llega avisar...como puedo hacer esto?

[David]

Puedes poner un Timer que se ejecute cada 10 minutos, y después con Dir compruebas si existe el archivo...

[SeNdEr2003]

si, eso lo pense, sucede que el archivo siempre es el mismo, solo cambia el contenido, igualmente sirve?

[David]

Iniciado por SeNdEr2003

si, eso lo pense, sucede que el archivo siempre es el mismo, solo cambia el contenido, igualmente sirve?

Sí, igual sirve, solo que cada vez que compruebe que ha llegado el archivo debe cambiarle el nombre...

[SeNdEr2003]

si, ese es mi drama, el archivo debe ser el mismo siempre, de ultima podria crear un backup pero ni idea como hacerlo...

[David]

Iniciado por SeNdEr2003

si, ese es mi drama, el archivo debe ser el mismo siempre, de ultima podria crear un backup pero ni idea como hacerlo...

A lo que me refiero es que cuando el programa finalmente compruebe que el archivo ha llegado, lo copie a otra parte, para que así la próxima vez que compruebe no compruebe el archivo anterior sino el que acaba de llegar, no sé si entiendes lo que quiero decir.

El código sería más o menos:

Código:

 
Private Sub Timer1_Timer()
'Aquí debes escribir el Código para que sólo se ejecute cada 10 minutos
If Dir("C:\Archivo.txt", vbArchive) = "" Then
     MsgBox "El Archivo no ha llegado", vbCritical
Else
     MsgBox "El Archivo ha llegado", vbInformation
     'Copiar Archivo.txt a Archivo (2).txt
     FileCopy "C:\Archivo.txt", "C:\Archivo (2).txt"
     'Eliminar Archivo.txt
     Kill "C:\Archivo.txt
End If
End Sub

No puse el código para que se ejecute cada 10 minutos, si tienes problemas con eso, me avisas.