GetFileAttributes()

Syntax

Attribute = GetFileAttributes(Dateiname$)

Gibt die Datei-Attribute der angegebenen Datei zurück.

Parameter

Dateiname$

Die Datei, von der die Attribute gelesen werden sollen. Dies kann auch der Name eines Verzeichnisses sein.

Rückgabewert

Gibt die Attribute der Datei zurück. Wenn die Datei nicht existiert oder die Attribute nicht gelesen werden können, ist das Ergebnis der Wert -1.

Auf Windows sind die Attribute eine Kombination der folgenden Werte:

  #PB_FileSystem_Hidden     : Datei ist versteckt
  #PB_FileSystem_Archive    : Datei wurde geändert und nicht archiviert seit dem letzten Mal
  #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

Anmerkungen

Um zu testen, ob ein Attribut tatsächlich 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

Beispiel

  Value = 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

Siehe auch

SetFileAttributes(), DirectoryEntryAttributes()

Unterstützte OS

Alle