EXISTEFICHIER : SOLUTION ALTERNATIVE
cs_Kheops
Messages postés
14
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 octobre 2010
-
18 déc. 2001 à 20:52
BOBTHEJEDI Messages postés 2 Date d'inscription samedi 20 mars 2004 Statut Membre Dernière intervention 10 novembre 2005 - 10 nov. 2005 à 21:00
BOBTHEJEDI Messages postés 2 Date d'inscription samedi 20 mars 2004 Statut Membre Dernière intervention 10 novembre 2005 - 10 nov. 2005 à 21:00
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/2225-existefichier-solution-alternative
https://codes-sources.commentcamarche.net/source/2225-existefichier-solution-alternative
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
19 déc. 2001 à 17:40
qd a la gestion des erreurs, autant utiliser ce ki existe, c fait pr ca !!!
ah pis thx pr l'api
19 déc. 2001 à 16:17
Dis-moi, essaie donc de tester un fichier sur le lecteur a: quand ya pas de diskette.
Ho miracle il existe.
Vraiment a chier ton code
1/10
19 déc. 2001 à 09:42
19 déc. 2001 à 04:05
18 déc. 2001 à 23:18
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
18 déc. 2001 à 21:18
18 déc. 2001 à 20:52