Visual Basic > Files Directories Drives sample source codes

Visual Basic Code > 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