Sub AggiornaXML()

        'controllo se il file dati.xml esiste
        'se non esiste lo creo con i valori di default
        Dim chkFile As New System.IO.FileInfo(MyPath & NomeXML)

        If Not chkFile.Exists Then

            With dsXML
                .DataSetName = "NuovoDataSet"
                .Tables.Add("settings")

                .Tables("settings").Columns.Add("NomeFileCSV")
                .Tables("settings").Columns.Add("nPezzo")
                .Tables("settings").Columns.Add("Temperatura")

                Dim ValoreRiga(2) As String                                     'matrice che conterrà i valori da memorizzare nella riga
                ValoreRiga(0) = MyPath & "\Modello.csv"                         'percorso di default del file da caricare all'accensione
                ValoreRiga(1) = 0                                               'n° ultimo pezzo in prova
                ValoreRiga(2) = 0                                               'ultima impostazione della temperatura (decimi di grado)

                .Tables("settings").Rows.Add(ValoreRiga)

                .WriteXml(MyPath & NomeXML)
                .WriteXml(nUltimoPezzo)

            End With
        End If

        'lettura parametri da file .XML
        dsXML.ReadXml(MyPath & NomeXML)
        NomeFileCSV = dsXML.Tables("settings").Rows(0).Item("NomeFileCSV")      'percorso del file da caricare all'accensione
        nUltimoPezzo = dsXML.Tables("settings").Rows(0).Item("nPezzo")          'n° ultimo pezzo in prova
        Temperatura = dsXML.Tables("settings").Rows(0).Item("Temperatura")      'ultima impostazione della temperatura (decimi di grado)
    End Sub