private Sub copyFileThread_Sub(UriStringO As Object, joO As Object, destO As Object)
Dim UriString As String=UriStringO
Dim jo As JavaObject=joO
Dim dest As DirAndFilename=destO
Try
Dim AnIS As InputStream = File.OpenInput(jo.GetField("ContentDir"), UriString) 'interface freezes
Dim out As OutputStream = File.OpenOutput(dest.Dir,dest.Filename,False)
File.Copy2(AnIS, out)
out.Close
AnIS.Close
copyFileThreadSuccess=True
Catch
copyFileThreadSuccess=False
Log("Warning 2427: " & LastException)
End Try
End Sub