IBM Lotus Symphony
|
Renvoie une suite de bits qui identifie le type de fichier ou le nom d'un volume ou d'un répertoire.
GetAttr (Text As String)
Nombre entier
Text : expression de type chaîne de caractères qui contient une spécification de fichier non ambiguë. Vous pouvez également utiliser la notation URL.
Cette fonction détermine les attributs d'un fichier donné et renvoie la suite de bits qui peut vous aider à identifier les attributs de fichier suivants :
0 : fichiers normaux.
1 : fichiers en lecture seule.
8 : renvoie le nom du volume.
16 : renvoie le nom du répertoire uniquement.
32 : le fichier a été modifié depuis la dernière sauvegarde (attribut d'archivage).
Si vous voulez savoir si un bit de l'octet d'attribut est défini, utilisez la méthode de requête suivante :
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Définissez la cible pour le gestionnaire d'erreurs
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