progresswheel1.visible=true
dim i as integer
dim File as FolderItem
dim FileStream as TextInputStream
file=GetOpenFolderItem("")
If file <> Nil and file.exists then
FileStream = file.OpenAsTextFile
If FileStream <> Nil then
Do Until FileStream.EOF
window1.urlsv.AddRow FileStream.ReadLine
Loop
End
Else
MsgBox "File error"
End
It now opens the file but if there are multiple entries it only shows
the first one
heres the save code
dim f as folderItem
dim i as integer
dim t as textOutputStream
dim theLine as string
f = GetSaveFolderItem ("", "URL Database")
if f <> nil then
t = f.createTextFile
if t <> nil then
for i = 0 to window1.urlsv.listCount -1 //repeat with each row
of the listbox
theLine = window1.urlsv.cell(i,0) + chr(9) +
window1.urlsv.cell(i,1)
//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>
