Writing a File.Pls Help

[Priju Jacob Paul]

Hello,
I have created the file.but the problem is that i am not able to write any thing to it.I am also attaching the codes with this.Pls Help me to sort this out.
Codes::

TBuf<KExQueryTextBufLength> textToGet;
RFs rfs;
User::LeaveIfError(rfs.Connect());
CleanupClosePushL(rfs);
rfs.MkDir(KFileDir);
RFile file;
if(file.Open(rfs,KFilePath,EFileWrite)!=KErrNone)
{
HBufC* text1 = StringLoader::LoadLC(R_FILE_ERROR);
HBufC* text2 = StringLoader::LoadLC(R_FILE_FAILED_TO_CREATE );
CCknInfoDialog::RunDlgLD(*text1,*text2);
CleanupStack::PopAndDestroy(text2);
CleanupStack::PopAndDestroy(text1);
CleanupStack::PopAndDestroy();
return;
}
CleanupClosePushL(file);

RFileWriteStream writer(file);

CleanupClosePushL(writer);

writer.WriteL(textToGet);
writer.CommitL();
writer.Close();

I am able to create the file.but the problem is that i am not able to write anything in it.
Pls help me to sort this out.
Thaks in advance
Cheers
Priju

[Priju Jacob Paul]

Can any one pls help me out.I know there are persons who have worked in this stuff..Plsssss i badly need to sort it out.
Cheers
Priju