Générer un fichier dans le dossier d'installation

bonjour,

voici le code que j'utilise pour générer un fichier texte. Je veux que mon fichier se génère dans le dossier d'installation de l'application :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
            Using sw As New StreamWriter(mydocpath & Convert.ToString("\WriteLines.txt"),True)       
 
                sw.WriteLine(installedprinter)
                sw.WriteLine(papersize)
                sw.WriteLine(papersource)
                sw.WriteLine(pageorientation)
                sw.WriteLine(margingauche)
                sw.WriteLine(margindroit)
                sw.WriteLine(marginhaut)
                sw.WriteLine(marginbas)
            End Using

Merci d'avance