Lecture d'un fichier texte, si il existe pas le creer!

Bonjour tout le monde, en fais je voudrais qu'a l'ouverture de mon programme il va voir un fichier, il prend les données, et je les utilises, mais si le fichier n'existe pas je veut qu'il le créer!

j'ai fait: dans ma form load

Dim ligne As String
Open "C:\ProgStats.txt" For Input As #1
Input #1, ligne
texte = ligne
Module1.CouleurBouton = texte
Close

end sub

et dans ma form unload:
Open "C:\ProgStats.txt" For Output As #1
Print #1, Module1.CouleurBouton
Close

Si le fichier existe, il prend les données les utilise, et enregistre les modification a la fin, mais si il existe pas! forcément il me dit Fichier introuvable!

alors je voudrais savoir comment faire pour qu'il fait que le lire, si il n'existe pas il le creer, et au form unload, il m'enregistre mes données dans mon fichier text? :D

merci d'avance

pour tester si le fichier existe tu peux faire

if dir("C:\ProgStats.txt")<>"" then
' Ici le fichier existe
Open "C:\ProgStats.txt" For Input As #1
Input #1, ligne
texte = ligne
Module1.CouleurBouton = texte
Close
else
' Ici le fichier n'existe pas
'
end if

Merci beaucoup :) sa marche super :) j'espere qu'un jour c'est moi qui pourrais t'aider :)

encore merci :)

LiPtOnIc
et fredlynx, si je veux ouvrir un fichier texte a partir d'une saisie clavier, je veux verifier que ce fichier existe bien et dans le cas echeant, redemander la saisie clavier

Ici, Micro est le nom de fichier entré en saisie clavier

fichier_1=FreeFile
if dir("C:\users\pcs\work\renseignement\" & micro + ".txt")<>"" then
open "C:\users\pcs\work\renseignement\" & micro + ".txt" for input as #fichier_1
....'instructions...

else
'redemander saisie clavier

dois je obligatoirement faire une boucle (un DO ou un WHILE) et restocker dans ma variable string (en ecrasant le contenu) le nouveau nom de fchier saisi ou connaitrais tu un autre moyen qui ferait l'equivalent? une instruction ou je ne sais quoi...
Merci d'avance qq soit ta reponse

nop un do while me parait de circonstance!