Sub EventoGaleriaFotos_Result (Success As Boolean, Dir As String, FileName As String)
Log("EventoGaleriaFotos_Result Success: " & Success)
dim imgsel as string
dim dirsel as string
If Success = True Then
Imgsel = FileName
DirSel = Dir
Private rp As RuntimePermissions
Dim ruta As String
ruta=rp.GetSafeDirDefaultExternal("temp")
If File.Exists(ruta,"ORIGINAL")=True Then
File.Delete(ruta,"ORIGINAL")
End If
File.Copy(DirSel,Imgsel,ruta,"ORIGINAL") ''-->CRASH
Else
Return ' no se seleccionó imagen
End If
End Sub