L'ho modificata così

Dim filepath, fso, f, s
filepath = "E:\IMail\mail_dominio_it\users\"& rs("username")&"\lastlog.in"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filepath)) Then
Set f = fso.GetFile("E:\IMail\mail_dominio_it\users\"& rs("username").Value &"\lastlog.in")
s = formatdatetime(f.DateLastModified,1)
ShowFileAccessInfo = s
Else
ShowFileAccessInfo = "Non si è mai loggato"
end If
set fso=nothing


Mi restituisce una lista di "Non si è mai loggato". Ma non dovrebbe essere così