Aprire un editor di testo
La funzione
Incollare la funzione VBS seguente nell'editor : .
CompareAttributes funzione ( file1 , file2 ) per
dim res
file1.attributes = file2.attributes poi
res = true
altro
res = false
fine se
Confronta = res
end Function
Esempio
Incolla il seguente per testare la funzione :
dim fso , f1 , f2
set fso = CreateObject ( " Scripting.FileSystemObject " ) per
set f1 = FSO . getFile ( "nomefile" ) per
set f2 = fso.getFile ( " anotherFilename " )
CompareAttributes ( f1 , f2 )
Programmazione © www.354353.com