Hi,
progresswheel1.visible=true
Dim TextTypes as New FileType
TextTypes.Name= "Text Files"
TextTypes.Extensions=".txt"
Dim f as FolderItem
dim fs as TextInputStream
f.mactype = "Text"
f.maccreator = "UKBH"
f= GetOpenFolderItem(textTypes)
If f <> Nil then
//MsgBox f.AbsolutePath
fs.
End if
'dim i as integer
'dim File as FolderItem
'dim FileStream as TextOutputStream
'file=GetSaveFolderItem("","URL Database")
'If file <> Nil then
'file.macType = "Text"
'file.macCreator = "UKBH"
'FileStream = file.CreateTextFile
'If FileStream <> Nil then
'For i = 0 to urlsv.ListCount - 1
'FileStream.WriteLine urlsv.List(i)
'Next
'End if
'End if
'
'
'
I have the above code to create a text file
now how do I open it?
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>
