Encodes the contents of a file to a target file.
Syntax:
Parameters:
Returns
Returns 1 if the operation is successful; otherwise the operation returns zero.
Example
Dim oEdiDoc As Fredi.ediDocument
Dim oFileSystem As Fredi.ediFileSystem
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Get file system object.
Set oFileSystem = oEdiDoc.GetFileSystem
' Encode a file.
oFileSystem.EncodeFile App.Path & "\TestFile.TXT", EncodeType_Base64, App.Path & "\EndcodeBase64.Txt"
MsgBox "Done"
Samples