/ Snippet Library - View Code

Snippet details

ID: 331

Viewed: 1364

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

This is a VB tip for fast file reading.
'This only works for simple text files.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPublic Function FileRead(ByVal sFileName As String) As String ' Dim File_h As Integer ' ensure that the file exists If Len(Dir$(sFileName)) = 0 Then Err.Raise 53 ' File not found End If File_h = FreeFile() Open sFileName For Input As #File_h ' read the string and close the file FileRead = Input$(LOF(File_h), File_h) Close #File_h End Function Text1.Text = FileRead("C:myfile.txt")

No Reviews to show