If NOMEFILE esiste...then

[fcrisafi]

Ciao io ho del codice che mi verifica l'ultimo login di un utente e mi serve per controllare se un utente usa o meno l'email che gli ho creato.
Il codice è questo:

Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("E:\IMail\mail_dominio_it\users\"& rs("username")&"\lastlog.in")
s = formatdatetime(f.DateLastModified,1)
ShowFileAccessInfo = s

Se l'utente non ha mai usato la sua email, IMail non crea il file lastlog.in. Come posso modificare lo script per fare in modo che non si blocchi perchè non trova in alcuni casi il file lastlog.in??

Spero d essere stato chiaro
Grazie

[M@sE]

è una WEBMAIL, quella di cui parli?

[Shagrat]

Dim fso, f, s 
Set fso = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists("E:\IMail\mail_dominio_it\users\"& rs("username")&"\lastlog.in")) Then 
Set f = fso.GetFile("E:\IMail\mail_dominio_it\users\"& rs("username")&"\lastlog.in")
else
....
end if 
s = formatdatetime(f.DateLastModified,1) 
ShowFileAccessInfo = s

[fcrisafi]

Con la solzuione di Shagrat non dà errore ma in alternativa non vedo + nulla.

[Shagrat]

posta la pagina un il pezzo dello script interessato

[fcrisafi]

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ì

[Shagrat]

non vedo il motivo qui...posta la pagina per intero


e usa il tag [code ]...se no non si capisce nulla