Italian File 0 byte

realearthx

Member
Licensed User
Un saluto a tutti.
Avrei bisogno di salvare ( se necessario per poi inviarlo) un file TXT e quindi inviarlo tramite mail o WhatsApp o Drive, ecc.
Ho scritto questo codice ma, quando apro l'app mail mi appare un messaggio che il file ha 0 byte ed è impossibile allegarlo.

Mi potete aiutare?

Grazie mille.

B4X:
Sub Save_Click
    Dim record As String
    record = "Lunghezza: " & inputlung.Text & " mt" & CRLF & "Altezza: " & inputLarg.Text & " mt"
    File.WriteString(File.DirInternal, "Parete.txt", record)
    Dim u As Uri
    u.Parse(File.Combine(File.DirInternal, "Parete.txt"))
    Dim i As Intent
    i.Initialize(i.ACTION_SEND, "")
    i.SetType("txt/plain")
    i.PutExtra("android.intent.extra.STREAM",u)
    StartActivity(i)      
End Sub
 

drgottjr

Expert
Licensed User
Longtime User
Top