Sub SaveImage(link As String)
' link è qualcosa del tipo "cartella/nomefile.jpg"
Dim i1, i2, lungo As Int
Dim nomeFile, cartella As String
i1 = link.LastIndexOf("/")
i2 = link.LastIndexOf2("/",i1-1)
cartella = link.SubString2(i2+1,i1)
nomeFile = link.SubString(i1+1)
If nomeFile.Length<1 Then
Log("Nome file immagine non trovato")
Return
End If
'creo la cartella se non esiste
If File.IsDirectory(File.DirInternal,cartella)=False Then
File.MakeDir(File.DirInternal,cartella)
End If
Dim cnv As Canvas
' logoProdotto è una ImageView
cnv.Initialize(logoProdotto)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal & "/" & cartella, nomeFile, False)
cnv.Bitmap.WriteToStream(Out, 100, "PNG")
Out.Close
End Sub