TESTER SI UN FICHIER EXISTE ( SIMPLE ET EFFICACE )

leneuf22 Messages postés 156 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 4 mars 2003 - 19 juil. 2002 à 14:28
twayzan Messages postés 1 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 20 juin 2009 - 20 juin 2009 à 14:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4084-tester-si-un-fichier-existe-simple-et-efficace

twayzan Messages postés 1 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 20 juin 2009
20 juin 2009 à 14:17
Merci Bcp c'est Génial y a rien à dire que brabo et merci
en Ms-Dos y a une fonction qui s'appelle Exist (Not exist) malheureusement ça marche pas en Vb
teste si fichier existe dans le répértoire En cours
If (dir(app.path & "\NomDeFichier.Extension")= "" then
msgbox "Le fichier n'existe pas ,Pensez à le creer"
else
msgbox " Le fichier existe est en supression..."
end if
Slt
le5ejumeau Messages postés 130 Date d'inscription mardi 11 mars 2003 Statut Membre Dernière intervention 9 juillet 2009
18 avril 2007 à 15:35
salut, je sais que ca fait un petit moment que cette source existe mais :
- Dir est trés lent d'execution
- on ne peut utiliser ta méthode avec des chemins relatifs...

donc si on veut garder cette simplicité on peut utilisé :

Private Function FichierExiste(Chemin As String) As Boolean
On Error Resume Next
FileExists ((GetAttr(Chemin) And vbDirectory) 0)

End Function

voilà est bonne prog ...
cs_nereck Messages postés 3 Date d'inscription jeudi 29 décembre 2005 Statut Membre Dernière intervention 7 juin 2006
12 sept. 2006 à 14:27
Comment déclare-t-on le chemin du répertoire que l'on veut examiner ??
avant ton script par Path = "chemin" ??
Help Me !

Thx
cs_cyriloo Messages postés 60 Date d'inscription dimanche 20 novembre 2005 Statut Membre Dernière intervention 12 septembre 2007
25 avril 2006 à 13:54
superbe
cs_buzzo Messages postés 29 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 30 novembre 2006
7 avril 2006 à 19:06
Impec merci beaucoup
GarnetDiAlexandros Messages postés 55 Date d'inscription mercredi 31 juillet 2002 Statut Membre Dernière intervention 19 novembre 2004
23 sept. 2002 à 09:48
Parfait, rien à redire
RaptorX Messages postés 20 Date d'inscription dimanche 24 mars 2002 Statut Membre Dernière intervention 21 octobre 2003
24 juil. 2002 à 11:08
La, c sur c plus dur ( et plus long )
Cette source t'aidera peut-etre: http://www.vbfrance.com/article.aspx?Val=5021
cs_yann1 Messages postés 8 Date d'inscription jeudi 4 avril 2002 Statut Membre Dernière intervention 3 février 2003
24 juil. 2002 à 08:14
c'est sympa, je cherche quelquechose de plus compliqué, comment peut-on trouver si un fichier existe si on ne connait que son nom et pas le chemin ?
RaptorX Messages postés 20 Date d'inscription dimanche 24 mars 2002 Statut Membre Dernière intervention 21 octobre 2003
21 juil. 2002 à 10:26
Je crois que tu te surestime un peu Xjardin...
Dans le genre condensé, le code de logisim est plus efficace, désolé ;-)
XGuarden Messages postés 259 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 17 août 2012
21 juil. 2002 à 04:50
Plus sinple que tous vos code encore:

Fichier_ExisteIIF(Dir(Path ) "",true,false)
RaptorX Messages postés 20 Date d'inscription dimanche 24 mars 2002 Statut Membre Dernière intervention 21 octobre 2003
19 juil. 2002 à 18:44
C'est pas plus simple, c'est la même chose en condensé...
logisim Messages postés 49 Date d'inscription mardi 8 mai 2001 Statut Membre Dernière intervention 14 août 2004
19 juil. 2002 à 18:42
Encore plus simple !

Public Function Fichier_Existe(Path As String) As Boolean
Fichier_Existe = (Dir(Path) <> "")
End Function
cs_OphidiaN Messages postés 235 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 9 novembre 2007
19 juil. 2002 à 14:44
ouais :) c vraiment pour ceux qui ont pas l'aide de VB msdn ça ;)
++
RaptorX Messages postés 20 Date d'inscription dimanche 24 mars 2002 Statut Membre Dernière intervention 21 octobre 2003
19 juil. 2002 à 14:32
merci, c vraiement sympa...

bonne prog!!
leneuf22 Messages postés 156 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 4 mars 2003 1
19 juil. 2002 à 14:28
Rien à dire... excellent une fois de plus ;-)
Rejoignez-nous