Polar Studio

ReadFile

Public Function ReadFile(ByVal Filename As String, Optional ByVal ReadBinary As Boolean = True) As String

Reads a file in the file system and returns the value as a string. Returns an empty string if not found.

Filename: The name of the file to read. If only a file name is specified without a path, the exepath is used.
ReadBinary: Pass as True to return a binary string, False to read as text (includes UTF8 decoding if needed).

Public Function ImportFile(pFileName As String)
    Dim lFile As clsString = New clsString(ReadFile($"C:\Temp\Imports\{pFileName}"))
    Dim lLine As String
    
    Do While lFile.Length > 0
        lLine = lFile.GetStringPart(vbCrLf)
        SendDebug lLine
        'Do something with the line here
    Loop
End Function

See also: