Voila mon CODE
<%
Dim fs, nFile
set fs = CreateObject("Scripting.FileSystemObject")
nFile = server.mappath("file.txt")
if fs.FileExists(nFile) then
response.write("le fichier existe")
set MonFichier = fs.GetFile(nFile)
response.write ("Date de création: " & MonFichier.DateCreated)
set fs = nothing
else
response.write("le fichier existe pas")
end if
%>