One option (although not a great one) is to use GetFolderitem instead
of GetSaveFolderItem.
Best,
Jeff
On Oct 12, 2006, at 4:25 AM, Brian Heibert wrote:
How would I go about writing to a file that would contain a serial
number
and check to see if the file exists
if it exists then do not display a window I have at startup
if it doesn't exist then I would display that window
I took this code out of another program I wrote
How would I go about modifying this to use a preferences file
and saving a serial number in a file
but I do not want to display a save as dialog box
dim f as folderItem
dim i as integer
dim t as textOutputStream
dim theLine as string
f = GetSaveFolderItem ("", "URL Database.ukb")
if f <> nil then
t = f.createTextFile
#if TargetMacOS
f.MacType = "Text"
f.MacCreator = "UKBH"
#EndIf
if t <> nil then
for i = 0 to urlsv.listCount -1 //repeat with each row of the
listbox
theLine = urlsv.cell(i,0)
//theLine is made up of the Name + tab character + the URL
t.writeLine theLine
next
t.close
end if
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>
_______________________________________________
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>
