Windows bruker et system med attributter å definere informasjon om hvordan en fil skal håndteres av operativsystemet , for eksempel " Read Only ", " Skjult " og " System File" . Disse egenskaper er tilgjengelige for Visual Basic Script som en enkel heltall med verdiene anordnet på en slik måte enhver heltall representerer nøyaktig ett arrangement av attributter. Siden de er bare et heltall , kan filattributter sammenlignes med bare vanlige " hvis x = y "-struktur . Klargjøring

Åpne en teksteditor
Function

Lim inn følgende VBS funksjon i redaktøren: .
< P > Funksjon CompareAttributes ( file1 , fil2 )

dim res
p Hvis file1.attributes = file2.attributes deretter

res = true

annet

res = false

slutten hvis

Sammenligne = res

slutten Funksjon
Eksempel

Lim inn følgende for å teste funksjonen : en

dim fso , f1 , f2

satt fso = CreateObject ( " Scripting.FileSystemObject ")

sett f1 = fso . getfile ( "filnavn" )

sett f2 = fso.getFile ( " anotherFilename ")

CompareAttributes ( f1 , f2 )