Sujet Précédent Sujet Suivant

TESTER LA PRESENCE D'UN FICHIER

seb - 28 mars 2001 à 13:05
baouc Messages postés 26 Date d'inscription mercredi 12 février 2003 Statut Membre Dernière intervention 15 octobre 2007 - 13 févr. 2007 à 19:17

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/13-tester-la-presence-d-un-fichier

baouc Messages postés 26 Date d'inscription mercredi 12 février 2003 Statut Membre Dernière intervention 15 octobre 2007
13 févr. 2007 à 19:17

Intéressant comme idée.
Peut etre une petite amélioration:

'*******************************************************
Public Function Verification(Fichier As String) As Boolean
On Error GoTo Erreur53

Verification (GetAttr(Fichier) 0)

On Error GoTo 0
Verification = True

Exit Function
Erreur53:
Verification = False
On Error GoTo 0

End Function
'*******************************************************

rexar Messages postés 2 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 28 juin 2005
28 juin 2005 à 13:25

Merci Bleu055 :)

bleu055 Messages postés 8 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 30 août 2006
28 juin 2005 à 12:30

Filelen teste la longueur du fichier, c'est utile si tu as en entré un fichier texte de 0ko : le fichier existe mais risque de provoquer des erreurs de lecture

rexar Messages postés 2 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 28 juin 2005
28 juin 2005 à 01:50

Esque quelqu'un pourrait m'expliquer a quoi sert la fonction FileLen ?

bleu055 Messages postés 8 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 30 août 2006
16 juin 2005 à 17:33

si il faut entrer le chemin de fichier avec la méthode getattr

cs_antoine76 Messages postés 30 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 20 juillet 2005
24 mai 2005 à 13:58

je connais pas la methode GetAttr, ça fonctionne juste avec le nom du ficher,t as pas besoin de lui entrer le path?

c3rb3r3 Messages postés 38 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 25 janvier 2006
12 mai 2005 à 22:30

Function Verification(Fichier As String) As Boolean
Verification (GetAttr(Fichier) 0)
End Function

Private Sub Form_Load()
On Error GoTo Erreur53
Verification ("fichier.ext")
Erreur53: MsgBox "Fichier absent.",vbCritical,"Exemple"
End Sub

c3rb3r3 Messages postés 38 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 25 janvier 2006
12 mai 2005 à 22:25

La méthode Dir() n'est pas sécurisée, c'est une erreur de procéder ainsi. En outre, l'utilisation de la méthode GetAttr() est plus fiable et rapide.

Pirlouiit Messages postés 1 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 25 novembre 2004
25 nov. 2004 à 11:00

Code :

Dim FileExist as boolean

If Dir("C:\Test.txt") = "" Then
FileExist = False
Else
FileExist = True
End If

cs_FredT Messages postés 65 Date d'inscription mardi 18 février 2003 Statut Membre Dernière intervention 11 avril 2009
3 mars 2003 à 12:25

t'es superb gentil Lightness1024 ! mais peux-tu nous expliquer ca un peu mieux? dir() permet de rechercher et renvoie une String! Je vois pas comment améliorer la fonction de Nix. Elle est impec (j'ai mis un bon 8). Par contre je l'aurai plutôt appelé isFile(). ;-)

djcool74 Messages postés 44 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 12 février 2005
9 févr. 2003 à 15:56

Merci pour cette source qui est vraiment TRES utile.

Bonne idée !!!!!!!!!

@ +
djcool74

Lightness1024!
27 juil. 2001 à 14:37

fonction dir bien mieux

seb
28 mars 2001 à 13:05

Merci, bien utile comme je debute

Discussions similaires

logiciel pour lire un fichier .class

Ouvrir un fichier java

Lire informations fichier class dans un programme java

Faire planter un shell "maison"

Comment tester si un processus non lancé par mon prog python est ouvert?

Votre réponse

Discussions similaires