Saber si llega un archivo nuevo

[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