codice:
If Dir(strpath & "*.dat") <> "" Then ...
restituisce una stringa contenente il nome dell'ultimo file trovato