i need to get a text file to text box.
i have:
Open cname & ".txt" For Input As #2
sho.Text = #2
Close #2
Printable View
i need to get a text file to text box.
i have:
Open cname & ".txt" For Input As #2
sho.Text = #2
Close #2
Code:Open cname & ".txt" For Input As #1
sho.Text = Input$(LOF(1), 1)
Close #1
Don't use Input$ function for that kind of operation, open in Binary and use Get:
Code:Dim buffer as string
Open file for binary as 1
buffer=space(lof(1))
Get#1,,buffer
close 1
sho.text = buffer