by James Vincent Carnicelli (21 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (4 Votes)
Read an entire text file into a string in one call.
Inputs
sFileName As String
Code Returns
String containing file contents.
Public Function ReadFile(ByVal sFileName As String) As String
Dim fhFile As Integer
fhFile = FreeFile
Open sFileName For Binary As #fhFile
ReadFile = Input$(LOF(fhFile), fhFile)
Close #fhFile
End Function