GetFileAttributes()

Syntax

Attribute = GetFileAttributes(DateiName$)
Beschreibung
Gibt die Datei-Attribute des angegebenen 'DateiName$' zurück.

Auf Windows sind die Attribute eine Kombination der folgenden Werte: 
  #PB_FileSystem_Hidden     : Datei ist versteckt
  #PB_FileSystem_Archive    : Datei wurde archiviert und seit dem letzten Mal nicht geändert
  #PB_FileSystem_Compressed : Datei ist komprimiert
  #PB_FileSystem_Normal     : Normale Attribute
  #PB_FileSystem_ReadOnly   : Datei ist im "ReadOnly" Modus (schreibgeschützt)
  #PB_FileSystem_System     : Datei ist eine Systemdatei
Auf Linux oder MacOSX sind die Attribute eine Kombination der folgenden Werte: 
  #PB_FileSystem_Link       : Die Datei ist ein symbolischer Link 
  #PB_FileSystem_ReadUser   : Zugriffs-Flags für den "besitzenden" (englisch: owning) Anwender
  #PB_FileSystem_WriteUser
  #PB_FileSystem_ExecUser
  #PB_FileSystem_ReadGroup  : Zugriffs-Flags für die "besitzende" (englisch: owning) Anwendergruppe
  #PB_FileSystem_WriteGroup
  #PB_FileSystem_ExecGroup
  #PB_FileSystem_ReadAll    : Zugriffs-Flags für alle anderen Anwender
  #PB_FileSystem_WriteAll
  #PB_FileSystem_ExecAll
Um zu testen, ob ein Attribut gesetzt ist, benutzen Sie einfach '&' (binäres 'AND', zu deutsch: und) und die Attribut-Konstanten: 
  FileAttributes = GetFileAttributes("C:\Text.txt")
  If FileAttributes & #PB_FileSystem_Hidden
    Debug "Diese Datei ist versteckt!"
  EndIf
Wenn die Datei-Attribute nicht gelesen werden konnten, gibt der Befehl -1 zurück.

Beispiel: 
  Value.l = GetFileAttributes("c:\autoexec.bat") 
  
  If Value = -1 
    Debug "Fehler beim Lesen der Datei-Attribute!"
  Else 
    If Value & #PB_FileSystem_Hidden     : txt$ + "H" : Else : txt$+"-" : EndIf 
    If Value & #PB_FileSystem_Archive    : txt$ + "A" : Else : txt$+"-" : EndIf 
    If Value & #PB_FileSystem_Compressed : txt$ + "C" : Else : txt$+"-" : EndIf 
    If Value & #PB_FileSystem_Normal     : txt$ + "N" : Else : txt$+"-" : EndIf 
    If Value & #PB_FileSystem_ReadOnly   : txt$ + "R" : Else : txt$+"-" : EndIf 
    If Value & #PB_FileSystem_System     : txt$ + "S" : Else : txt$+"-" : EndIf 
    Debug txt$ 
  EndIf

Unterstützte OS

Alle

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