Sub btnconteggio_Click
switch=1
mp1.Load(File.DirAssets,"uscita.mp3")
mp1.Play
conteggio = conteggio
txtconteggio.Text= txtconteggio.Text + conteggio
txtconteggio.Text= NumberFormat2(txtconteggio.Text,1, 1, 0, False)
Dim crenumero As TextWriter
crenumero.Initialize(File.OpenOutput(File.DirInternal, "numeroA.txt" , False))
crenumero.Write("A"&txtconteggio.Text)
crenumero.Close
ftp2.Initialize("ftp2","ftp.partanna.com",21,"xxxxxxx","xxxxxxx")' ho inserito un spazio web non corretto per privacy
ftp2.UploadFile(File.DirInternal,"numeroA.txt",True,"/fattura/numeroA.txt")
ftp2.Close
End Sub