Dim i As Intent
i = Activity.GetStartingIntent
If i.Action.Contains("VIEW") Then
Dim jo As JavaObject
Dim ContentDir As String = jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File").GetField("ContentDir")
Dim strUri As String = i.GetData
Dim Inp As InputStream = File.OpenInput(ContentDir , strUri)
Dim Out As OutputStream = File.OpenOutput(File.DirRootExternal&"/impromptu", "testfile.imp", False)
File.copy2(Inp, Out)
Inp.Close
Out.Close
End If