Public Storage As ExternalStorage
Public randomfile As ExternalFile
Storage.Initialize (Me, "Storage")
B4XPages.MainPage.Storage.SelectDir(True)
Wait For Storage_ExternalFolderAvailable
B4XPages.MainPage.randomfile.Initialize
B4XPages.MainPage.randomfile = B4XPages.MainPage.Storage.FindDirOrCreate(B4XPages.MainPage.Storage.Root,"RANDOMKEY")
If B4XPages.MainPage.randomfile.IsInitialized Then
Dim inputstream As InputStream = B4XPages.MainPage.Storage.OpenInputStream(B4XPages.MainPage.randomfile)
inputstream.ReadBytes(buffer,0,inputstream.BytesAvailable)
Dim RndFileObj As B4XBytesBuilder
RndFileObj.Initialize
RndFileObj.Append(buffer)
end if