Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/Fanfashion/includes/upload.asp, line 138


getting this error and mine code is



Code:
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If Not oFS.FolderExists(sPath) Then Exit Sub
		
		Set oFile = oFS.CreateTextFile(sPath & FileName, True)
...