Windows utilizza un sistema di attributi di file per definire informazioni come un file deve essere gestito dal sistema operativo, ad esempio "Sola lettura" "Nascosti" e "File System". Questi attributi sono accessibili agli Script di Visual Basic come valore integer a semplice con i valori disposti in tale maniera che qualsiasi dato intero rappresenta esattamente un arrangiamento di attributi. Dal momento che sono solo un numero intero, attributi di file possono essere confrontati usando solo il solito "se x = y" struttura.

Sempre pronto

Aprire un editor di testo.

La funzione

Incollare la seguente funzione VBS nell'editor:

Funzione CompareAttributes (file1, file2)

dim res

if file1.attributes = file2.attributes then

res = true

else

res = false

end if

Compare = res

End Function

Esempio

Incollare il seguente per verificare la funzione:

Dim fso, f1, f2

UST = CreateObject("Scripting.FileSystemObject")

impostare f1 = fso.getFile("filename")

impostare f2 = fso.getFile("anotherFilename")

CompareAttributes (f1, f2)