QuickBinaryFl

' 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