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)