I am using this to save files
progresswheel1.visible=true
//urlsv.text
Dim file As FolderItem
Dim fileStream as TextOutputStream
file=GetSaveFolderItem("","URL Database")
if file = nil then
MSGBOX "Can't save file."
else
file.MacType = "Text"
file.MacCreator = "UKBH"
fileStream=file.CreateTextFile
fileStream.WriteLine urlsv.text
fileStream.Close
end if
Can someone refer me to a page in a manual or something that would
show me how to open a file
I looked at the TextEdit tutorial example
Dim f as FolderItem
Dim w as TextWindow
#If TargetWin32 then
f=GetOpenFolderItem("text;rtf") //displays open-file dialog
#else //Linux and Macintosh
f=GetOpenFolderItem("text")
#endif
If f<>Nil then //the user clicked Open
w=New TextWindow //create new instance of TextWindow
f.OpenStyledEditField w.TextField
w.Document=f //assign f to the Document property
w.Title=f.Name //assign name of f to the Title property of w
End if
But It doesn't look like it's what i need I am a bit confused (like
usual)
Brian
_______________________________________________
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>
