Hi!
I need when I open a APP, it open a .txt, get all LINES and each line of .txt is 1 ITEM in the List1. :sick:
it's possible? thanks!
Printable View
Hi!
I need when I open a APP, it open a .txt, get all LINES and each line of .txt is 1 ITEM in the List1. :sick:
it's possible? thanks!
Dim sText as string
Open "c:\example.txt" for input as #1
do
lineinput #1, sText
list1.additem sText
loop while not eof(#1)
Code:Dim intFile As Integer
intFile = FreeFile
Open App.Path & "\Test.txt" For Input As #intFile
'Do While Not EOF(intIFF)
Do Until EOF(intFile)
Line Input #intFile, strInputData
List1.additem strInputData
Loop
Close #intFile
Sorry PeteLeeb.:thumb:
LOL.. no worries Liquid Metal..
We just provided twice as much help..:)
no probs as you both posted at the same time without your knowledge...it happens at times...;-)