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

Messages postés
12
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
12 avril 2004
- - Dernière réponse : fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
- 6 mai 2004 à 18:03
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
Afficher la suite 

4 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
0
Merci
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
Messages postés
12
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
12 avril 2004
0
Merci
Merci beaucoup :) sa marche super :) j'espere qu'un jour c'est moi qui pourrais t'aider :)

encore merci :)
Messages postés
11
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
17 mai 2004
0
Merci
LiPtOnIc :shy)
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 :)
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
0
Merci
nop un do while me parait de circonstance!