GetFileAttributes()

Syntaxe

Attributs = GetFileAttributes(NomFichier$)
Description
Renvoie les attributs du fichier spécifié.

Sur Windows, les attributs sont une combinaison des valeurs suivantes: 
  #PB_FileSystem_Hidden    : Fichier caché
  #PB_FileSystem_Archive   : Fichier archivé
  #PB_FileSystem_Compressed: Fichier compressé
  #PB_FileSystem_Normal    : Fichier normal
  #PB_FileSystem_ReadOnly  : Fichier en lecture seule
  #PB_FileSystem_System    : Fichier système.
Sur 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
Pour vérifier si un attribut est présent, il suffit d'utiliser l'operateur '&' (And): 
  Attributs = GetFileAttributes("C:\Text.txt")
  If Attributs & #PB_FileSystem_Hidden
    Debug "Fichier caché !"
  EndIf
Si les attributs du fichier ne peuvent être lus, la commande renvoie -1.

Exemple: 

  Attributs.l = GetFileAttributes("c:\autoexec.bat") 
  
  If Attributs = -1 
    Debug "Erreur à la lecture des attributs du fichier!"
  Else 
    If Attributs & #PB_FileSystem_Hidden     : texte$ + "H" : Else : texte$+"-" : EndIf 
    If Attributs & #PB_FileSystem_Archive    : texte$ + "A" : Else : texte$+"-" : EndIf 
    If Attributs & #PB_FileSystem_Compressed : texte$ + "C" : Else : texte$+"-" : EndIf 
    If Attributs & #PB_FileSystem_Normal     : texte$ + "N" : Else : texte$+"-" : EndIf 
    If Attributs & #PB_FileSystem_ReadOnly   : texte$ + "R" : Else : texte$+"-" : EndIf 
    If Attributs & #PB_FileSystem_System     : texte$ + "S" : Else : texte$+"-" : EndIf 
    Debug texte$ 
  EndIf

OS Supportés

Tous

<- GetExtensionPart() - FileSystem Index - GetFileDate() ->