Windows bruger et system filattributter at definere oplysninger om, hvordan en fil skal håndteres af operativsystemet , såsom " Skrivebeskyttet ", " Skjult ", og "System File" . Disse attributter er tilgængelige for Visual Basic Script som et simpelt heltal med værdierne arrangeret på en sådan måde en given heltal svarer præcis én indretning af attributter . Da de er bare et heltal, kan filattributter sammenlignes ved hjælp af netop den almindelige " hvis x = y "-struktur . Klargøring
Åbn en teksteditor
Function
Indsæt følgende VBS -funktionen i editoren : .
< P > Funktion CompareAttributes ( fil1 , fil2 )
dim res
p Hvis file1.attributes = file2.attributes derefter
res = true
ellers
res = false
ende, hvis
Sammenlign = res
ende Function
Eksempel
Indsæt følgende for at teste funktionen : Hej
dim FSO , F1, F2
sæt FSO = CreateObject ( " Scripting.FileSystemObject " )
sæt f1 = FSO . GetFile ( " filename" )
sæt f2 = fso.getFile ( " anotherFilename " )
CompareAttributes ( F1, F2)
< br >