Добрый всем день!
Проблема возникла на ровном месте.
LPARAMETERS tcFileName,tcSection,tcKey

LOCAL lcFileName, lcSection, lcKey, ;
lhFile, lcError, lcBuff, lnPos, lcCurKey

IF PCOUNT() < 3
RETURN .F.
ENDIF

lcError = 'INI_FILE_ERROR'
lcSection = '[' + AllTrim(tcSection) + ']'
lcKey = alltrim(tcKey)
lcFileName = tcFileName
lcFileName = LOWER(FULLPATH(lcFileName))
IF !file(lcFileName)
messagebox('Íå óäàëîñü íàéòè ôàéë!' + CHR(13) + ;
"Cîçäàþ íîâûé")
lhFile = FCREATE(lcFileName)
IF lnFile < 0
messagebox('Íå óäàëîñü cîçäàòü ôàéë!')
RETURN lhFile
ENDIF
RETURN lnFile
ELSE
lhFile = FOPEN(lcFileName, 2)
if lhFile < 0
messagebox('Íå óäàëîñü îòêðûòü ôàéë!')
return lcError
ENDIF
IF FPUTS(lnFile, ALLTRIM(lcSection)) = 0
= messagebox('Çàïèñü ñåêöèè íå óäàëàñü!')
fclose(lhFile)
return lhFile
ENDIF
IF FPUTS(lnFile,lcKey) = 0
messagebox('Çàïèñü çíà÷åíèÿ íå óäàëàñü!')
fclose(lhFile)
return lcError
ENDIF
ENDIF

Этот код положен в метод формы WriteFile()
Вот вызов:ThisForm.txtWrite.Value = ThisForm.WriteFile("myFile.txt", ThisForm.Name, ThisForm.Caption)
Возвращается в данном случае после создания файла значение переменной lnFile.
Сама проблема в том, что FCREATE() не возвращает дескриптор.Вообще ничего. Возвращает .Т. Причем файл создается.Как надо и где надо.Тоже самое творится и с FPUTS(). Что за дела? Может кто знает в чем и где проблема? А FOPEN() работает нормально. FOX 8.0, Win XP Pro

Спасибо за участие, сам разобрался! Бывает, что ерунда, а переклинит и не заметить никак, вот и видятся глюки. На свежую голову и разобрался.Извиняюсь за лишнее беспокойство.