FileName = "C:\Arhiv\Net022010.rar"
if  FSO.FileExists(FileName)  Then
  'Выводим информацию на экран
  WScript.Echo "Файл  существует"
else
  'Выводим информацию на экран
  WScript.Echo "Файл не существует" 
end if

<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>

<%

Dim fStatus,FileName

Dim fso ' объявляем переменую fso – экземпляр FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject") ' создаем экземпляр объекта FileSystemObject
FileName="C:\file.txt"

if  FSO.FileExists(FileName)  Then
fStatus=FSO.FileExists(FileName)
%>
<p><%=fStatus%>
<%
else
fStatus=FSO.FileExists(FileName)

%>
<p><%=fStatus%><%
end if
%>