Private Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
dim filename_2 as string
dim filename_2 = GetPathFromContentResult(FileName)
Dim ou As OutputStream
ou = File.OpenOutput(File.DirInternal,"temp.jpg",False)
File.Copy2(File.OpenInput(Dir,FileName),ou)
ou.Close
End if
End Sub