Dim RAFin As RandomAccessFile
Dim l As Int
RAFin.Initialize(FilePath,FileName, False)
l = File.Size(FilePath,FileName)
Dim FileBuffer(l) As Byte
RAFin.ReadBytes(FileBuffer,0,l,RAFin.CurrentPosition)
RAFin.Close
Dim B64String As String
Dim su As StringUtils
B64String=su.EncodeBase64(FileBuffer)
Log(B64String.Length)