IBM Lotus Symphony
|
Gibt ein Bitmuster zurück, das den Dateityp oder den Namen eines Datenträgers oder eines Verzeichnisses kennzeichnet.
GetAttr (Text As String)
Integer
Text: Zeichenfolgeausdruck, die eine eindeutige Dateispezifikation enthält. Sie können auch die URL-Schreibweise verwenden.
Diese Funktion ermittelt die Attribute für eine angegebene Datei und gibt die Bitmuster zurück, die Ihnen beim Identifizieren der folgenden Dateiattribute helfen können:
0 : Normale Dateien.
1 : Schreibgeschützte Dateien.
8 : Gibt den Namen des Datenträgers zurück.
16 : Gibt nur den Namen des Verzeichnisses zurück.
32 : Datei wurde seit der letzten Sicherung geändert (Archivierungsbit).
Mithilfe der folgenden Abfragemethode können Sie ermitteln, ob ein Bit des Attributbyte gesetzt wurde:
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Ziel für Fehlerbehandlung definieren
If Dir("C:\test",16)="" Then MkDir "C:\test"
If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,0
Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,1
print GetAttr( "c:\test\autoexec.sav" )
end
ErrorHandler:
Print Error
end
end sub