اشکال این کد چیه؟؟

[mhaeri]

Function CheckFileExists(sFileName)

اگر میشه اشکال این تکه کد رو بگید
من موقع اجرا این Error رو می گیرم

"Runtime error 424. Object Required"

اینم کد:


Dim FileSystemObject

Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")

If (FileSystemObject.FileExists(sFileName)) Then
CheckFileExists = True
Else
CheckFileExists = False
End If


Set FileSystemObject = Nothing

End Function

[mhaeri]

با سلام
اشکال توی اون Server. بود که وقتی حذفش کردم برنامه اجرا شد.