Android Question Automatically saving email attachments through Intents and 'Complete action using...'

Intent  intent = getIntent();
InputStream
        is = null;
FileOutputStream
        os = null;
String  fullPath = null;

try {
    String  action = intent.getAction();

    if (!Intent.ACTION_VIEW.equals(action))
        return;

    Uri    uri = intent.getData();
    String  scheme = uri.getScheme();
    String  name = null;

    if (scheme.equals("file")) {
        List<String>
            pathSegments = uri.getPathSegments();

        if (pathSegments.size() > 0)
            name = pathSegments.get(pathSegments.size() - 1);

    }

    else if (scheme.equals("content")) {
        Cursor  cursor = getContentResolver().query(
                uri,
                new String[]{MediaStore.MediaColumns.DISPLAY_NAME},
                null,
                null,
                null);

        cursor.moveToFirst();

        int nameIndex = cursor.getColumnIndex(MediaStore.MediaColumns.DISPLAY_NAME);
        if (nameIndex >= 0)
            name = cursor.getString(nameIndex);

    }

    else
        return;

    if (name == null)
        return;

    int    n = name.lastIndexOf(".");
    String  fileName,
            fileExt;

    if (n == -1)
        return;

    else {
        fileName = name.substring(0, n);
        fileExt = name.substring(n);
        if (!fileExt.equals(".gcsb"))
            return;

    }

    fullPath = /*create full path to where the file is to go, including name/ext*/;

is = getContentResolver().openInputStream(uri);
    os = new FileOutputStream(fullPath);

    byte[]  buffer = new byte[4096];
    int    count;

    while ((count = is.read(buffer)) > 0)
        os.write(buffer, 0, count);

    os.close();
    is.close();
}

Sub HandleUri(u As Uri)
   Dim cr As JavaObject = GetContext.RunMethod("getContentResolver")
   Dim In As InputStream = cr.RunMethod("openInputStream", Array(u))
   Dim out As OutputStream = File.OpenOutput(...)
   File.Copy2(In, out)
   out.Close
End Sub

Sub GetContext As JavaObject
  Return GetBA.GetField("context")
End Sub

Sub GetBA As JavaObject
  Dim jo As JavaObject
  Dim cls As String = Me
  cls = cls.SubString("class ".Length)
  jo.InitializeStatic(cls)
  Return jo.GetFieldJO("processBA")
End Sub

Sub New_External_Import
    Import_List = File.ReadList(Import_Folder,"Import File.txt")
    Current_Import = Import_List.Get(0)
    Import_Filename = Current_Import & ".txt"
    Import_List.removeAt(0)
    If File.Exists(File.DirInternal,Import_Filename) = True Then
        Result = Msgbox2("Are you sure you want to overwrite the existing " & Current_Import & "?","Overwrite " & Current_Import & "?","Yes, Overwrite","","No, don't overwrite",Null)
        If Result = DialogResponse.POSITIVE Then
            File.Delete(File.DirInternal,Import_Filename)
            File.WriteList(File.DirInternal,Import_Filename,Import_List)
            Msgbox("Import Completed","")
        Else If Result = DialogResponse.NEGATIVE Then
            Msgbox("Import Cancelled","")
        End If
    Else If File.Exists(File.DirInternal,Import_Filename) = False Then
        File.WriteList(File.DirInternal,Import_Filename,Import_List)
        Msgbox("Import Completed","")
    End If
End Sub