' Very quick file reading routine
' ' - reads in the complete file as a string in one pass ' ' '******************************************************************************* Function GetFileCont(sFile As String) As String Dim FF As Integer FF = FreeFile GetFileCont = Space(FileLen(sFile)) Open sFile For Binary As #FF Get #FF, , GetFileCont Close #FF End Function |