There are a number of ways to read all content from a text file. The function below uses only VB6’s features to do that.
Public Function ReadAll(ByVal FilePath As String) As StringDim FileNumber As LongDim Result As String If FilePath "" Then If Dir(FilePath) "" Then FileNumber = FreeFile Open FilePath For Input As FileNumber On Error GoTo Trap Result = Input(LOF(FileNumber), FileNumber) On Error GoTo 0 Close FileNumber End If End If ReadAll = Result Exit FunctionTrap: Close FileNumber FileNumber = FreeFile Open FilePath For Binary Access Read As FileNumber Result = Space(LOF(FileNumber)) Get #FileNumber, , Result Resume NextEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
