open statement et on error

Question

salut
peux ton gérer l'erreur lorsque l'on ouvre un fichier qui n'existe pas
en fait je connais les noms des fichiers sensés se trouver dans un répertoire il faut que je les ouvre tous mais il se peux aussi que certains ne soit pas présent.
s'il sont présent je place le contenu dans une variable 
s'il est absent(retour d'erreur de la fonctio open) je passe outre l'erreur et je ne fait rie
pb je n'arrive pas à gérer l'erreur il bloque le programme malgré un on error goto fin:
si quelqu'un a une idée merci par avance (je programme en VBE)

cs_Jack · Answer

Salut
Des codes de test de pr&#233;sence de fichier sur vbFrance, ce n'est pas ce qui manque !
As-tu au moins un peu cherch&#233;, juste un peu ?
Quel langage ?

En VB6 :
If Dir("C:\mon Repertoire\mon fichier.txt") <> "" Then MsgBox "Le fichier existe"

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

crenaud76 · Answer

Pour rebondir sur ce que te propose Jack, je dirais qu'il ne faut pas abuser des "On Error Goto ...".
A partir du moment ou un test avant une action peut te permettre d'&#233;viter l'erreur en ne faisant pas cette action, c'est l'option &#224; retenir.
Trop de developpeur VB s'appuis tr&#232;s largement sur les gestionnaires d'erreur ! C'est un tort !

Christophe R

arnovb · Answer

un grand merci à toi jack
ta commande m'a permis d'accélérer mon code un max car pour voir si un fichier était présent j'utilisais un code trouvé sur ce site et modifié et l'instruction était bcp plus lente là c'est instantané 

encore merci

Open statement et on error

3 réponses

Discussions similaires