Windows usa um sistema de atributos de arquivo com informações sobre como definir um arquivo deve ser tratada pelo sistema operacional , como " somente leitura ", "Hidden " e " Sistema de Arquivos " . Estes atributos são acessíveis para Visual Basic Script como um inteiro simples com os valores dispostos de tal maneira um determinado número inteiro representa exactamente um arranjo de atributos . Uma vez que eles são apenas um inteiro, atributos de arquivo pode ser comparada usando apenas o comum " se x = y" estrutura. Ficando Pronto

Abra um editor de texto
A Função

Copie o seguinte VBS funcionar para o editor : .

CompareAttributes função ( file1 , file2 )

dim res

se file1.attributes = file2.attributes então

res = true

mais

res = false

acabam se

Compare = res

Função final
Exemplo

cole o seguinte para testar a função :

dim fso , F1, F2

set fso = CreateObject (" Scripting.FileSystemObject " )

definido f1 = fso . getFile ( "filename" )

definir f2 = fso.getFile ( " anotherFilename " )

CompareAttributes ( F1, F2 )
< br >