Hi,
I am getting an IOException # 21 on Tis=TextInputStream.Open(f)
It was working fine with FolderItem.OpenAsTextFile.
Can anyone help me?
Here is my code below :
[code] dim Tis As textInputStream
dim rowfromfile As string
dim f, ff As folderItem
dim n,tr,l,i,res,res2,j,nbF,k As Integer
dim chem As String
dim w as progress
w=new progress
lblisting.SortedColumn=2
lblisting.Sort
f=SelectFolder
if f=nil then
msgbox “Pas de fichiers!”
beep
return
end if
nbF=f.count
w.show
w.PBProgress.Maximum=nbf
for k= 2 to nbf
'chem=f.Item(k).abso
chem=f.Item(k).NativePath
ff=GetFolderItem(chem,3)
if ff=nil then
msgbox “Pas de fichiers!”
beep
return
end if
Tis=TextInputStream.Open(f)
tis.encoding=encodings.macroman[/code]
Thanks
Chris