ouverture automatique fichier texte

bonjour,

j'ai une code en vb qui me permet d'écrire mes informations dans un fichier texte.
je voudrais qu'une fois le fichier créé, il s'ouvre automatiquement avec le bloc note.
Pouvez vous m'indiquer quelles sont les commandes à réaliser?

merci

voici mon code pour le moment:

'declaration des variables

Dim FichierTxt AsString

FichierTxt =

My.Application.Info.DirectoryPath & "\" & "vif.ini"

Dim AdresseExport AsString

AdresseExport =

""

Dim TextLine AsString'le texte de la ligne

' ouvre le fichier texte.

FileOpen(1, FichierTxt, OpenMode.Input)

' Boucle jusqu'. la fin du fichier texte.

Dim ligne AsInteger

ligne = 0

WhileNot EOF(1)

' Lit les lignes du fichier Dossier.ini

TextLine = LineInput(1)

ligne = ligne + 1

If ligne = 8 Then

AdresseExport = TextLine

EndIf

EndWhile

FileClose(1)

'Fermer le fichier

'declaration pour la boucle

Dim k AsInteger

k = 0

'declaration des textes

Dim contenuText AsString

contenuText =

""

Dim listNomExport AsString

listNomExport =

""

For k = 0 To listComp.Items.Count - 1

listNomExport = listNomExport & vbCrLf & listComp.Items(k).Text &

" sur le serveur " & listComp.Items(k).SubItems(1).Text & " cr,e le " & listComp.Items(k).SubItems(2).Text

Next

contenuText =

My.Computer.Clock.LocalTime & vbCrLf & vbCrLf & listNomExport

Dim NomFichierExport AsString

NomFichierExport = AdresseExport &

"\Export Fichiers Incorect.txt"

My.Computer.FileSystem.WriteAllText(NomFichierExport, contenuText, False)

MsgBox(

"L'export est termin,. Le fichier est enregistr, dans C:\" & vbCrLf, MsgBoxStyle.OkOnly, "Export")