File is uploading but not showing saved images..?

[Raj deepak]

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/Fanfashion/includes/upload.asp, line 138


getting this error and mine code is

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If Not oFS.FolderExists(sPath) Then Exit Sub
		
		Set oFile = oFS.CreateTextFile(sPath & FileName, True)
		Response.Write("FileData:" &LenB(FileData))
		For nIndex = 1 to LenB(FileData)
		    oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
            'oFile.Write FileData
		Next

		oFile.Close
	End Sub