/ Snippet Library - View Code

Snippet details

ID: 333

Viewed: 1344

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Quick Binary File Read

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'***************************************************************************** ' ' 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

No Reviews to show