Windows utilise un système d'attributs de fichiers pour définir des informations sur la façon dont le fichier doit être traité par le système d'exploitation , tels que " Read Only ", "Caché " et " File System". Ces attributs sont accessibles au script Visual Basic comme un nombre entier simple avec les valeurs disposées de façon tout entier donné représente exactement un arrangement d'attributs . Comme ils sont juste un entier , les attributs de fichier peuvent être comparées en utilisant juste l'ordinaire " if = x y " structure . Préparatifs

Ouvrez un éditeur de texte
La fonction

Coller la fonction VBS suivant dans l'éditeur : .
< P > CompareAttributes de fonction ( file1 , file2 )

dim res

si file1.attributes = file2.attributes puis

res = true

autre

res = false

fin si

Comparaison = res

End Function
Exemple

Collez le texte suivant pour tester la fonction :

dim fso , f1 , f2

mis fso = CreateObject (" Scripting.FileSystemObject " )

ensemble f1 = OFS . getFile ( "filename" )

ensemble f2 = fso.getFile ( " anotherFilename " )

CompareAttributes ( f1, f2)
< br >