Android Question Issues copying image from path returned by ContentChooser

Dim  image As ContentChooser


Sub btnAlbumImg_Click
    image.Initialize("imgChooser")
    image.Show("image/*", "Choose image")
   
End Sub


Sub imgChooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
   Dim Out As OutputStream
        Out = File.OpenOutput(File.DirRootExternal & "/adc", FileName, False)
        Dim Inp As InputStream = File.OpenInput(Dir , FileName)
        File.Copy2(Inp, Out)
        Out.Close
   Else
   ToastMessageShow("No image selected!", True)
   End If