This is just a sample. You should check for the existence of all of the
folders before trying to use them and present dialogs to the user if they do
not exist and/or cannot be created.
HTH
Dim f, textFile as FolderItem
Dim t As TextInputStream
// f = a folder named "Users" that is located in
// the same location as the folder that the application is running in.
f = GetFolderItem("Users")
// If Users exists, proceed, if not, create the Users folder and Tornado
folder.
If not f.Exists then
f.CreateAsFolder
f = GetFolderItem("Users").Child("Tornado")
f.CreateAsFolder
Else
f = GetFolderItem("Users").Child("Tornado")
If not f.Exists then
f.CreateAsFolder
End If
End If
textFile = f.Child("Users List.ntuf")
// If the text file exists, open it, read it, and place the contents into
// an EditField.
If textFile.Exists and textFile <> Nil then
t = textFile.OpenAsTextFile
EditField1.Text = t.ReadAll
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>
