Windows använder ett system för filattribut för att definiera information om hur en fil ska hanteras av operativsystemet , till exempel " Read Only ", "Hidden ", och " System File " . Dessa attribut är tillgängliga för Visual Basic Script som en enkel heltal med värden arrangerade på ett sådant sätt givet heltal representerar exakt ett arrangemang av attribut . Eftersom de är bara ett heltal , kan filattribut jämföras med bara den vanliga " om x = y " struktur . Förberedelser
Öppna en textredigerare
Function
Klistra in följande VBS -funktionen i editorn : .
Funktion CompareAttributes ( fil1 , fil2 ) katalog
dim res
p Om file1.attributes = file2.attributes sedan
res = true
annat
res = false
slut om
Jämför = res
end Function
Exempel
Klistra in följande för att testa funktionen :
dim FSO , f1 , f2
inställd fso = CreateObject ( " Scripting.FileSystemObject " ) katalog
set f1 = FSO . getFile ( " filnamn " ) katalog
set f2 = fso.getFile ( " anotherFilename " ) katalog
CompareAttributes (F1 , F2 )
