Verifier si un fichier existe

Bonjour francois, dans le message
news:3c0ds8F6jrqd0U1@individual.net
tu disais :

bonjour a tous,

Si je fais un open avec input sur un fichier inexistant, j'ai une
erreur.
Comment eviter l'erreur ou verifier avant de faire le open si le
fichier existe en visual basic ?

Merci à tous.

tu peux essayer comme ça :

Function FileExists(Path) As Boolean

FileExists = True
On Error Resume Next
Dir$ (Path)
GetAttr (Path)
If Err.Number Or GetAttr(Path) = vbDirectory Then FileExists = False
On Error GoTo 0

End Function

If FileExists (PathName & FileName) Then ...


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Bonjour

Pratiquement il faut tenter une opération sur le fichier, on n'évite pas
l'erreur N° 53 mais on la gère.

Une autre solution plus compliquée mais peut-être plus élégante consiste à
utiliser un objet FileSystemObject du système de fichiers de la bibliothèque
Scripting Runtime.

Sa méthode FileExist retourne une variable booléenne indiquant si le fichier
spécifié existe.

(Exemple issu de mon cours de programmation sur demande)
--
Bonne réception.
andre.araste@wanadoo.fr
http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.

"francois" <francois@nospam.fr> a écrit dans le message de news:
3c0ds8F6jrqd0U1@individual.net...

bonjour a tous,

Si je fais un open avec input sur un fichier inexistant, j'ai une erreur.

Comment eviter l'erreur ou verifier avant de faire le open si le fichier
existe en visual basic ?

Merci à tous.

La fonction standard Dir$ de VB retourne le nom du repertoire d'un fichier.
Si le fichier n'existe pas, elle te returne une chaine vide. Il te suffit
donc d'écrire les lignes suivantes dans ton programme :

If Dir$("toto.txt") = "" Then
' fichier inexistant
Else
' fichier existant
open .........
End If

Dans cet exemple, toto.txt est le fichier à ouvrir sous le repertoire de
l'appli.



"francois" <francois@nospam.fr> a écrit dans le message de news:
3c0ds8F6jrqd0U1@individual.net...

bonjour a tous,

Si je fais un open avec input sur un fichier inexistant, j'ai une erreur.

Comment eviter l'erreur ou verifier avant de faire le open si le fichier
existe en visual basic ?

Merci à tous.

Salut,

Public Function FileExists(ByRef strPath As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(strPath) And vbDirectory) = 0)
End Function

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Salut André! :O)

Je ne me souvient pas si on t'avait fait lire la fiche contre le FSO ?
http://faq.vb.free.fr/?question6

Personnellement, je ne considère pas le FSO comme étant une solution
propre... je dirais même que je ne le considère pas du tout. ;O)

--
Cordialement
Yanick
MVP pour Visual Basic

"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de
news:425b90be$0$19341$8fcfb975@news.wanadoo.fr...

Bonjour

Pratiquement il faut tenter une opération sur le fichier, on n'évite pas
l'erreur N° 53 mais on la gère.

Une autre solution plus compliquée mais peut-être plus élégante consiste à
utiliser un objet FileSystemObject du système de fichiers de la

bibliothèque

Scripting Runtime.

Sa méthode FileExist retourne une variable booléenne indiquant si le

fichier

spécifié existe.

(Exemple issu de mon cours de programmation sur demande)
--
Bonne réception.
andre.araste@wanadoo.fr
http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.
>
"francois" <francois@nospam.fr> a écrit dans le message de news:
3c0ds8F6jrqd0U1@individual.net...
> bonjour a tous,
>
> Si je fais un open avec input sur un fichier inexistant, j'ai une

erreur.

>
> Comment eviter l'erreur ou verifier avant de faire le open si le fichier
> existe en visual basic ?
>
> Merci à tous.
>