Windows utilizza un sistema di attributi di file per definire le informazioni su come un file dovrebbe essere gestito dal sistema operativo , come ad esempio " Sola lettura " e "Nascosto " e " File System " . Questi attributi sono accessibili a Script Visual Basic come un semplice intero con valori disposti in tal modo alcun dato intero rappresenta esattamente un arrangiamento di attributi . Dal momento che sono solo un numero intero , gli attributi dei file possono essere confrontati utilizzando solo l'ordinario " se x = y " struttura . Prepararsi

Aprire un editor di testo
La funzione

Incollare la funzione VBS seguente nell'editor : .
< P > CompareAttributes funzione ( file1 , file2 ) per

dim res

file1.attributes = file2.attributes poi

res = true

altro

res = false

fine se

Confronta = res

end Function
Esempio

Incolla il seguente per testare la funzione :

dim fso , f1 , f2

set fso = CreateObject ( " Scripting.FileSystemObject " ) per

set f1 = FSO . getFile ( "nomefile" ) per

set f2 = fso.getFile ( " anotherFilename " )

CompareAttributes ( f1 , f2 )
< br >