Testing Whether a File Exists

The code presented below is an example of testing whether a file exists on the server.

<%

if doesFileExist("myfilename") = true then
    response.write("The file " & myfilename & " exists.")
else
    response.write("The file " & myfilename & " does not exists")
end if

Function doesFileExist (filename)
    Dim fs
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    doesFileExist = false
    if fs.FileExists(Server.Mappath(fileName)) Then doesFileExist = true
    Set fs = Nothing
End Function

%>

NAT July 2005 (Revised)