Visual Basic Programming Code Examples Visual Basic > Files Directories Drives Code Examples Get or Put a File in 1 Line of code Get or Put a File in 1 Line of code Public Function GetFile(ByVal FileName As String, _ ByRef FileText As String) As Boolean FFile = FreeFile On Error GoTo hError Open FileName For Input As FFile Close Open FileName For Binary As FFile FileText = Space$(LOF(FFile)) Get #FFile, , FileText Close #FFile GetFile = True Exit Function hError: GetFile = False Exit Function End Function Public Function PutFile(ByVal FileName As String, _ ByVal FileText As String, _ Optional ByVal Overwrite As Boolean = True) As Boolean FFile = FreeFile On Error GoTo hError If Not Overwrite Then Open FileName For Input As FFile Close #FFile PutFile = False Exit Function End If NoFile: Open FileName For Output As FFile Close #FFile Open FileName For Binary As FFile Put #1, , FileText Close #FFile PutFile = True Exit Function hError: PutFile = False Resume NoFile: End Function