Saber si llega un archivo nuevo

[SeNdEr2003]

Buenas

Me piden un programa para este martes y la verdad no doy a basto con los tiempos, necesito saber si alguien sabe como recorrer un directorio cada 10 minutos en busca de un archivo dat, tengo todo hecho pero ahora me piden esto y no llego, aguien tendra el codigo para hacer esto?

Por ejemplo, el archivo .dat de texto plano llega de esta manera cada 10 minutos, es siempre distinto:

C:\Emessenger\4234\53245234525.dat

C:\Emessenger\5435\432314213423.dat

y asi.

Siempre llega dentro de ese directorio y va creando otros donde mete el archivo, alguien sabe como hacer esto??????????

[David]

Iniciado por SeNdEr2003

Buenas

Me piden un programa para este martes y la verdad no doy a basto con los tiempos, necesito saber si alguien sabe como recorrer un directorio cada 10 minutos en busca de un archivo dat, tengo todo hecho pero ahora me piden esto y no llego, aguien tendra el codigo para hacer esto?

Por ejemplo, el archivo .dat de texto plano llega de esta manera cada 10 minutos, es siempre distinto:

C:\Emessenger\4234\53245234525.dat

C:\Emessenger\5435\432314213423.dat

y asi.

Siempre llega dentro de ese directorio y va creando otros donde mete el archivo, alguien sabe como hacer esto??????????

¿Tienes otras carpetas en Emessenger o solo en la que llega el archivo?

[SeNdEr2003]

No hay otras carpetas dentro, las va creando a medida que llega el archivo como muestro ahi...

[David]

Iniciado por SeNdEr2003

No hay otras carpetas dentro, las va creando a medida que llega el archivo como muestro ahi...

Pues bien con Dir puedes ver qué carpeta existe, y nuevamente con Dir buscar dentro de ella el archivo *.dat...

[SeNdEr2003]

si, pero jamas use el dir, algun ejemplo?????????

[David]

Iniciado por SeNdEr2003

si, pero jamas use el dir, algun ejemplo?????????

Código:

 
Dim FileName As String
'Buscamos la carpeta
FileName = Dir("C:\Carpeta\*.*", vbFolder)
Do While FileName <> ""
        If FileName <> "." And FileName <> ".." Then
             FileName = Dir("C:\Carpeta\" & FileName & "\*.dat", vbArchive)
             Exit Do
        End If
Loop

Y listo, en FileName tendrás el nombre del archivo *.dat

[SeNdEr2003]

gracias por tomarte la molestia...