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 21040 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 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
11 déc. 2004 à 15:11
JJDai > si tu parles d'optimiser, la seule version qui le soit est celle indiquee par Renfield.
Utilisateur anonyme
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 74
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 !
Rejoignez-nous