|
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 : .
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 >
|
