Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1650 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA : Fonction Dir et attributs.

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA : Fonction Dir et attributs.

n°1304563
Panurge
Posté le 13-02-2006 à 17:06:23  profilanswer
 

Bonjour.
 
La documentation de Word 2002 sur la fonctio Dir et son second argument ne me semble pas claire.
 
Le second argument est, disons, un champ de bits.
 
Voici ce que dit la documentation pour commencer :
 
" Dir, fonction
 
Renvoie une valeur de type String représentant le nom d'un fichier, d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à un attribut de fichier ou au nom de volume d'un lecteur.
 
Syntaxe
 
Dir[(pathname[, attributes])] "
 
Que faut-il entendre exactement par " correspondant à un attribut de fichiers " ?
 
Avant de donner un exemple de code et son résultat, je copie ce que la documentation indique sur la façon de désigner les attributs :
 
Constante                   Valeur            Description  
vbNormal                     0 (Par défaut) Spécifie les fichiers sans attributs.  
vbReadOnly                 1                   Spécifie les fichiers accessibles en lecture seule ainsi que les fichiers sans attributs.  
vbHidden                     2                   Spécifie les fichiers cachés ainsi que les fichiers sans attributs.  
vbSystem                    4                   Spécifie les fichiers système ainsi que les fichiers sans attributs. Non disponible sur le Macintosh.  
vbVolume                     8                   Spécifie un nom de volume ; si un autre attribut est spécifié, la constante vbVolume est ignorée. Non disponible sur Macintosh.  
vbDirectory                  16                  Spécifie les dossiers ainsi que les fichiers sans attributs.  
vbAlias                        64                  Le nom du fichier spécifié est un alias. Disponible uniquement sur le Macintosh.  
 
Voici maintenant un code que j'ai écrit pour tester cela :
 
If Dir("C:\FichierPourTesterAttributs.txt", vbNormal) <> "" Then
  MsgBox "Le fichier existe déjà."
Else
  MsgBox "Le fichier n'existe pas."
End If
 
Le fichier en question existe.
S'il a les attributs "Lecture seule" et "Archive" mais pas l'attribut "Fichier caché", le MsgBox dit qu'il existe.
S'il a les trois attributs "Lecture seule", "Fichier caché" et "Archive", le MsgBox dit qu'il n'existe pas.
 
Je ne vois pas quelle est la règle qui peut faire attendre ce résultat.
 
Quelqu'un peut-il me l'expliquer ? Merci d'avance.


Message édité par Panurge le 13-02-2006 à 17:07:25
mood
Publicité
Posté le 13-02-2006 à 17:06:23  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA : Fonction Dir et attributs.

 

Sujets relatifs
Utiliser un autre compte mail que celui par défaut avec VBA sous ExcelApprendre VBA access sans JAMAIS avoir fait de prog?
Problème avec la fonction fopen()[VBA Access] mise a jour
[HTML/Css] Recherche tous les attributs de mise en pageRelation,Fonction et table??
On error VBAVBA Excel 2002 - AS400 chercher un fichier
!i! RESOLU !i! fonction exec() attente fin du progVBA - Macro supprimer ligne
Plus de sujets relatifs à : VBA : Fonction Dir et attributs.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR