Existefichier : solution alternative

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 142 fois - Téléchargée 46 fois

Contenu du snippet

bon je recommence :
voila un code + court et simple ke ce ke g vu avt !
voila c tt !!! ;o)

Source / Exemple :


'Teste si un fichier existe
Function ExisteFichier(file As String) As Boolean
    On Error GoTo erreur
    FileLen file
    ExisteFichier = True
    Exit Function
erreur:
    ExisteFichier = False
End Function

Conclusion :


alors, il est pas court et rapide ce code ?
si qqun a encore + rapide, n'hesitez pas !!!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
samedi 20 mars 2004
Statut
Membre
Dernière intervention
10 novembre 2005

Voila quelqu'un d'intéligent simple et efficace

les autres on pas compris que la fonction dir() est une fonction de M.....

merci

Bob
Messages postés
1
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
5 mars 2003

je propose le code ci-dessous pour apaiser les passions.

bon santé à tous
michel


Function ExisteFichier%(file$)
'// n° thème/catégorie/action: a1.1.1
'// description: permet de vérifier l'existence d'un fichier même s'il est caché
'// entrées: nom du fichier (!!!si chaine vide ==> erreur)
'// sorties: 0=absence; -1=présent; -2=présent+caché
'// création: 04/03/2003
'// version: 1i
'// avancement: 1
'// auteur: Michel Boussekeyt
'// copyright: libre d'utilisation
'// liens:
'// remarques: valable en VB 16 ou 32 bits
'// n° thème/catégorie/action: a1.1.1
'//
On Local Error Resume Next
Dim i%
i% ((Dir$(file, 2) <> "") And (Dir$(file) "")) + (Dir$(file, 2) <> "")
ExisteFichier (i% And (Err 0))
End Function
Messages postés
31
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
9 septembre 2003

1- t'as légèrement plus rapide et plus court en suivant TA propre méthode :

Function ExisteFichier3(file As String) As Boolean
On Error GoTo erreur
FileLen file
ExisteFichier3 = True
erreur:
End Function

2 - t'as plus 4 x court (pas besoin de fonction) avec :

if dir$(file)=file then fichier trouvé...

dans ta fonction, c'est plus lent que ta méthode, ok.
Mais comme avec dir$, tu n'as plus besoin d'utiliser de fonction (car ca prend une ligne au lieu de ton usine à gaz), y'a des chances que ce soit également plus rapide

3 - avec PathFileExists, tu as beaucoup plus rapide et plus court

4 - avec l'expérience, on sait que d'autres peuvent toujours trouver une meilleure solution que celle qu'on a trouvé (donc faut rester humble)

5 - T'as donc tout faux : la prochaine fois au lieu d'encombrer le site avec des remarques inutiles et présomptueuses, oublie pas que, des informaticiens, y en a parfois qui consultent aussi ce site...

NB: on utilise les on error seulement quand on ne controle pas tous les dysfonctionnements qui peuvent se produire (impressions, lancement fonctionnalité externe, ...) et jamais de manière abusive : Sur un gros logiciel, les on error à tire-larigo c'est ingérable par ex.
Messages postés
5
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
6 décembre 2006

Encore plus court...

utilise dir...

public fonction Existe (chemin_fichier) as boolean
if Dir (chemin_fichier) <> 0 then Existe=true
end function
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

ouais mais les erreur, en prog, meme sous vb, fo en avoir le moins possible, pas les utiliser... enfin voila koi... un code en 3 lignes c bien, mais utiliser une api et gérer ses erreurs c mieux !
$hîv@n
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.