Try
Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"test.evadts",False)
Dim InStr As InputStream = File.OpenInput("ContentDir",uri)
File.Copy2(InStr,OutStr)
OutStr.Close
Log(File.ReadString(File.DirInternal,"test.evadts"))
Catch
Log(LastException)
End Try