The data size seems to be missing in the lcFileStruct structure (for an upload, it should be an input parameter)

Try this code for assigning lcFileStruc:

	lcData = "This is just a text"
	lnSize = len(lcData)
	lcFileStruc = Alltrim(lcFileName)+Chr(0) && "name.ext"+null char
	lcFileStruc = Padr(lcFileStruc,13,Chr(0)) && padded to 13 bytes long
	For ln=1 to 4   && now add file size as a LONG integer
		lcFileStruc = lcFileStruc + chr(lnSize % 256)
		lnSize = int(lnSize/256)
	EndFor 

Regards,