Function FileExist(filename) Dim fs, exist Set fs = Server.CreateObject("Scripting.FileSystemObject") exist = fs.FileExists(filename) Set fs = Nothing Return exist End Function 'Utilisation : If FileExist("c:\test.txt") Then '... End If