Existefichier : solution alternative
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 323 fois - Téléchargée 48 fois
Contenu du snippet
bon je recommence :
voila un code + court et simple ke ce ke g vu avt !
voila c tt !!! ;o)
alors, il est pas court et rapide ce code ?
si qqun a encore + rapide, n'hesitez pas !!!
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
- Existefichier : solution alternative
- Createprocess, solution alternative ? ✓ - Forum - Delphi / Pascal
- La solution utilise l'api j2se pour effectuer la recherche dichotomique. - Forum - Java
- Enigme d'einstein application solution - Guide
- Jeu taquin 3x3 solution - Guide
- VBA DoEvents, problèmes et solutions - Conseils pratiques - Visual Basic / VB.NET
10 nov. 2005 à 21:00
les autres on pas compris que la fonction dir() est une fonction de M.....
merci
Bob
5 mars 2003 à 19:44
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
20 nov. 2002 à 23:13
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.
28 déc. 2001 à 01:20
utilise dir...
public fonction Existe (chemin_fichier) as boolean
if Dir (chemin_fichier) <> 0 then Existe=true
end function
20 déc. 2001 à 18:38
$hîv@n
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.