• Home
 · 
• Files/File Controls/Input/Output
 · 
• Open a text file FAST

Open a text file FAST

Opens a text file much fast than a "Do While Not EOF(filenumber)" loop. Makes
file load times almost non-existant.

Inputs
The filename of the file to open.

Assumes
The filename that you pass to the function must exist, otherwise an error will occur.

Returns
The text contained in the file.

Side Effects
I have yet to run into any. If you do happen to find one leave a comment and I will fix it.

Rate Open a text file FAST

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Function OpenFile(ByVal file As String) As String
 Dim i As Integer
 i = FreeFile
 Open file For Input As #i
 OpenFile = Input(LOF(i), i)
 Close #i
End Function