Hvordan man kan sammenligne filattributter i VBS

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

Gjør seg klar

Åpne en teksteditor.

funksjons

Lim inn følgende VBS funksjon inn i editoren:

Funksjon CompareAttributes (fil1, fil2)

dim res

hvis file1.attributes = file2.attributes deretter

res = true

ellers

res = false

slutt om

Sammenligne = res

end Function

Eksempel

Lim inn følgende for å teste funksjonen:

dim FSO, f1, f2

satt FSO = Create ( "Scripting.FileSystemObject")

satt f1 = fso.getFile ( "filnavn")

satt f2 = fso.getFile ( "anotherFilename")

CompareAttributes (f1, f2)