Hi,
I am getting a NilObjectException on this line:
Preferences.homepage.text=fileStream1.ReadLine
Can someone tell me what I am doing wrong?
Sub Open()
Dim file As FolderItem
file = preferencesFolder.child("SpiderWeb 2006 Preferences")
Dim a,b,c as string
Dim fileStream1 As TextInputStream
//file= GetOpenFolderItem("text") //file type defined in File Type
Sets Editor
If file <> Nil then
fileStream1=file.OpenAsTextFile
Preferences.homepage.text=fileStream1.ReadLine
Preferences.welcome.text=fileStream1.readline
fileStream1.Close
End if
End Sub
Here's the save code
Dim file As FolderItem
file = preferencesFolder.child("SpiderWeb 2006 Preferences")
Dim a,b,c as string
Dim fileStream1 As TextInputStream
//file= GetOpenFolderItem("text") //file type defined in File Type
Sets Editor
If file <> Nil then
fileStream1=file.OpenAsTextFile
Preferences.homepage.text=fileStream1.ReadLine
Preferences.welcome.text=fileStream1.readline
fileStream1.Close
End if
_______________________________________________
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>
