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
Christian Schmitz <[EMAIL PROTECTED]> wrote: Lennox Jacob wrote:
> Hello,
> How can I save a file to be readonly when it is opened.
How do you save it?
mfg
Christian
--
Around eleven thousand functions in one REALbasic plug-in.
The Monkeybread Software Realbasic Plugin.
_______________________________________________
Unsubscribe or switch delivery mode:
Search the archives of this list here:
---------------------------------
Yahoo! Autos. Looking for a sweet ride? Get pricing, reviews, & more on new
and used cars.
_______________________________________________
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>
