'**********************************************************************************************
' Tratamento de arquivos - Leitura e Gravação
'*********************************************************************************************
Sub LerArquivo(Dados As List,Senha As String,Arquivo As String)
Dados.Initialize
RAF.Initialize(File.DirRootExternal, Arquivo, False)
Dados=RAF.ReadEncryptedObject(Senha, RAF.CurrentPosition)
RAF.Close
End Sub
Sub GravarArquivo(Dados As List,Senha As String,Arquivo As String)
RAF.Initialize(File.DirRootExternal, Arquivo, False)
RAF.WriteEncryptedObject(Dados,Senha, RAF.CurrentPosition)
RAF.Close
End Sub