DÉTERMINATION DE L'EXISTANCE D'UN FICHIER

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 10 déc. 2004 à 11:34
BruNews
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
- 11 déc. 2004 à 15:11
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/28099-determination-de-l-existance-d-un-fichier

BruNews
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
27
11 déc. 2004 à 15:11
JJDai > si tu parles d'optimiser, la seule version qui le soit est celle indiquee par Renfield.
JJDai
Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015

11 déc. 2004 à 14:58
Ca me parait bien compliqué et pas très optimisé.
Une ligne de code suffit pour tester l'existence d'un fichier:


Function FileExist(FullpathName As String) As Boolean
On Error GoTo GestionErr
'--------------------------
If Dir(FullpathName) <> "" Then FileExist = True

GestionErr:
End Function
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
10 déc. 2004 à 13:19
via API :

If GetFileAttributes(szfile) And &H80000000& Then ABSENT
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
10 déc. 2004 à 11:34
Ta boucle While ... Wend pour avoir le dernier '\' peut être remplacer par une simple instruction InstrRev si tu es en VB6 !