Checking if a file exists -

Function File_Exists( strPath )
	Dim objFileObj, objFile
	On Error Resume Next
	File_Exists = False
	
	Set objFileObj = Server.CreateObject("Scripting.FileSystemObject")
	Set objFile = objFileObj.OpenTextFile (strPath, File_OpenForReading)

	If Err = 0 Then
		File_Exists = True
	End If
End Function