Comment Vérifier si Fichier existant ?

Question

Salut. Dans mon programme, j'ouvre des fichiers correspondant à un nom d'utilisateur.
Cependant si les fichiers n'existe pas deja, ca plante (car il trouve pas le fichier).
Comment puis je faire pour 1) verifier que le fichier existe avant dessayer d'ouvrir et 2) creer le fichier s'il est pas existant (commande pour creation de fichier ?).

Merci davance :)

MrDogbert · Answer

if dir(MonFichier) = MonFiichier then 'il existe
Pour creer le fichier je ne sais pas vraiment, ca le fait automatiquement lorsque tu utilises cette methode de lecture de fichiers
open MonFichier for binary as #1

MrDogbert

cs_Crazyht · Answer

1 ) Cherche sur le site y a deja plein de sources (dont la mienne)

2 ) 
   Dim fi as integer
   fi = FreeFile()
   Open Fichier For Append As #fi
   Close #fi

Et voila

A++

Crazyht :)

cs_slash_nbk · Answer

bah sinon y'a plus simple.

Tu diriges ton Drive1.
Tu diriges ton Dir1.
Tu diriges ton File1.

et tu contrôle :
if file1.listcount=0 ' c'est que ton fichier n'esiste pas
'alors tu fais ce que tu veux
else 'sinon, c'est qu'il existe
'alors tu fais ce que tu veux
end if

c'est simple et ça marche bien.
@+ Slash_nbk

Comment Vérifier si Fichier existant ?

3 réponses

Discussions similaires