DirectoryEntryAttributes()

Syntaxe

Resultat = DirectoryEntryAttributes(#Repertoire)

Renvoie les attributs du fichier courant dans le #Repertoire examiné par les fonctions ExamineDirectory() et NextDirectoryEntry().

Arguments

#Repertoire

Le répertoire examiné avec ExamineDirectory().

Valeur de retour

Avec Windows, les attributs sont une combinaison des valeurs suivantes:

  #PB_FileSystem_Hidden    : Fichier caché
  #PB_FileSystem_Archive   : Fichier inchangé et archivé depuis le dernier examen
  #PB_FileSystem_Compressed: Fichier compressé
  #PB_FileSystem_Normal    : Fichier normal
  #PB_FileSystem_ReadOnly  : Fichier en lecture seule
  #PB_FileSystem_System    : Fichier système.

Avec Linux ou MacOSX, les attributs sont une combinaison des valeurs suivantes:

  #PB_FileSystem_Link      : Le fichier est un lien symbolique
  #PB_FileSystem_ReadUser  : Permission d'accès en lecture pour le propriétaire
  #PB_FileSystem_WriteUser : Permission d'accès en écriture pour le propriétaire
  #PB_FileSystem_ExecUser  : Permission d'accès en exécution pour le propriétaire
  #PB_FileSystem_ReadGroup : Permission d'accès en lecture pour les membres du groupe propriétaire
  #PB_FileSystem_WriteGroup: Permission d'accès en écriture pour les membres du groupe propriétaire
  #PB_FileSystem_ExecGroup : Permission d'accès en exécution pour les membres du groupe propriétaire
  #PB_FileSystem_ReadAll   : Permission d'accès en lecture pour les autres utilisateurs
  #PB_FileSystem_WriteAll  : Permission d'accès en écriture pour les autres utilisateurs
  #PB_FileSystem_ExecAll   : Permission d'accès en exécution pour les autres utilisateurs

Remarques

Pour vérifier si un attribut est présent, il suffit d'utiliser l'operateur '&' (And):

Exemple

  Repertoire$ = GetHomeDirectory()  ; Liste tous les fichiers et les dossiers du répertoire racine de l'utilisateur qui est actuellement logué (Home)
  If ExamineDirectory(0, Repertoire$, "*.*")  
    While NextDirectoryEntry(0)
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
        Type$ = " [Fichier] "
        Taille$ = " (Taille : " + DirectoryEntrySize(0) + ")"
        Attributs = GetFileAttributes(DirectoryEntryName(0))
        If Attributs & #PB_FileSystem_System
          Debug "Attribut : Système"
        EndIf
        Else
        Type$ = " [Dossier] "
        Taille$ = "" ; Un Dossier n'a pas de taille
        Attributs = DirectoryEntryAttributes(0)
        If Attributs & #PB_FileSystem_System
          Debug "Attribut : Système"
        EndIf
      EndIf
      Debug Type$ + DirectoryEntryName(0) + Taille$
    Wend
    FinishDirectory(0)
  EndIf

Voir aussi

ExamineDirectory(), NextDirectoryEntry(), DirectoryEntryType(), DirectoryEntryName(), DirectoryEntrySize(), DirectoryEntryDate()

OS Supportés

Tous