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)
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
- Vb solution ✓ - Forum - VB.NET
- Appeler un projet de la même solution - Forum - VB.NET
- [VB.NET]Ajouter des fichier dans la solution. - Forum - VB.NET
- Solution acces d - Forum - Javascript / DHTML
Commentaires
les autres on pas compris que la fonction dir() est une fonction de M.....
merci
Bob
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
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.
utilise dir...
public fonction Existe (chemin_fichier) as boolean
if Dir (chemin_fichier) <> 0 then Existe=true
end function
$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.