by EGOR (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 20th January 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
read a text file
on error goto e
egor = FreeFile
Open "FILE PATH" For Input As #egor
Text1.Text = Input(LOF(filenum), #egor)
exit sub
e:
msgbox Err.Description