Load a File to a Text Box/Write Text Box's Contents To a File

Category:

Files and Directories

Type:

Snippets

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function LoadFileToTB(TxtBox As Object, FilePath As _
   String, Optional Append As Boolean = False) As Boolean
   
'PURPOSE: Loads file specified by FilePath into textcontrol 
'(e.g., Text Box, Rich Text Box) specified by TxtBox

'If Append = true, then loaded text is appended to existing
' contents else existing contents are overwritten

'Returns: True if Successful, false otherwise

Dim iFile As Integer
Dim s As String

If Dir(FilePath) = "" Then Exit Function

On Error GoTo ErrorHandler:
s = TxtBox.Text

iFile = FreeFile
Open FilePath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
    TxtBox.Text = TxtBox.Text & s
Else
    TxtBox.Text = s
End If

LoadFileToTB = True

ErrorHandler:
If iFile > 0 Then Close #iFile

End Function

Public Function SaveFileFromTB(TxtBox As Object, _
   FilePath As String, Optional Append As Boolean = False) _
   As Boolean
  
'PURPOSE: Saves contents of text control (e.g., Text Box,
'Rich Text Box) specified by TxtBox to file specified by FilePath

'If Append = true, then TxtBox's contents are
'appended to existing file contents
'else existing file is overwritten

'Returns: True if Successful, false otherwise

Dim iFile As Integer

iFile = FreeFile
If Append Then
    Open FilePath For Append As #iFile
Else
    Open FilePath For Output As #iFile
End If

Print #iFile, TxtBox.Text
SaveFileFromTB = True

ErrorHandler:

Close #iFile
End Function