Take files

[sgueper]

I would like to go to a directory and take all files like "*.000" to show and open them for reading line to line and I don't know how to do it.

Thanks

Silvia

 

[sunaj]

Something like..?
------------------------------------
Dim CurFile as string, InFile as byte, InLine as string

CurFile= dir("c:\tmp\*.000&quot
while CurFile<>&quot;&quot;
infile=freefile
Open &quot;c:\tmp\&quot; & CurFile for input as #infile
while not eof(infile)
line inout #infile,inline
'code for each line here....
wend
close #infile
CurFile=dir
wend
------------------------------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[sgueper]

Thank you very much, sunaj and sorry my english

 

[strongm]

Don't worry about your English. I suspect it's a LOT better than many of us trying to write in your language.