On 2/12/06 9:19 AM, "Lennox Jacob" <[EMAIL PROTECTED]> wrote:
> I save it like this
>
> Dim file As FolderItem
> Dim fileStream As TextOutputStream
>
> If Document = Nil then
> #If TargetWin32 //if on Windows
> file=GetSaveFolderItem("PrintEx",(FirstName.Text))
> 'file=GetSaveFolderItem("PrintEx",(FirstName.Text + " " )) Win32 don't
> like this
> #else
> file=GetSaveFolderItem("text",(FirstName.Text + " " ))
> #Endif
>
> If file <> Nil then //if the user clicked Save
> Title=file.Name //window Title gets document name
> Document=file //window property gets folderitem
> End if
> End if
>
> If Document <> Nil then
> fileStream=file.AppendToTextFile
> fileStream.WriteLine EditField1.text
> fileStream.WriteLine EditField2.text
>
> .
> .
> .
> .
> fileStream.WriteLine EditField200.text
> fileStream.Close
> TextHasChanged=False
> self.refresh
> End if
>
> if file = nil then return
>
> fileStream=file.CreateTextFile
> fileStream.WriteLine EditField1.text
> fileStream.WriteLine EditField2.text
> fileStream=file.AppendToTextFile
> fileStream.WriteLine EditField1.text
> fileStream.WriteLine EditField2.text
>
> .
> .
> .
> .
> fileStream.WriteLine EditField200.text
> fileStream.Close
> TextHasChanged=False
After your filestream.Close
Add... file.Locked = True
Michael
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
