Private Sub btnScrivi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScrivi.Click
        'creare variabile stringa che contiene la data
        Dim tim As String
        Dim sw As StreamWriter = New StreamWriter("c:\miofile.txt", True)
        ' aggiungo del testo al file .
        tim = String.Concat(Date.Now.Year.ToString, Date.Now.Month.ToString.PadLeft(2, "0"), Date.Now.Day.ToString.PadLeft(2, "0"))
        sw.WriteLine("T120000000081100000608071052")
        sw.WriteLine(tim)
        sw.Close()
    End Sub