Ecrire dans un batch avec VB.NET

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try

            'Création d'un flux d'écriture
            Dim sw As New StreamWriter("C:\Users\black\Downloads\resultat.bat")

            'écriture        
            sw.WriteLine("@echo off")
            sw.WriteLine("echo test")

        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try

    Private Sub BatAvexo(CheminFichier As String, Mot1 As String, Mot2 As String)
        Dim lignes As New List(Of String)


        'on "construit" le texte ligne par ligne
        lignes.Add("@echo off")
        lignes.Add(String.Format("echo {0} {1}", Mot1, Mot2))

        'ecriture du fichier
        File.WriteAllLines(CheminFichier, lignes)

    End Sub