Windows utiliza un sistema de atributos de archivo para definir la información acerca de cómo un archivo debe ser manejado por el sistema operativo, como "Sólo lectura ", "Oculto " y "File System " . Estos atributos son accesibles a Visual Basic Script como un entero simple con los valores dispuestos de tal manera que cualquier entero dado representa exactamente un arreglo de atributos . Ya que son sólo un número entero , atributos de archivo se pueden comparar utilizando sólo el ordinario " si x = y " estructura. Preparándose

Abra un editor de texto
La función

Pega el siguiente función de VBS en el editor : .
< P > CompareAttributes función ( archivo1 , archivo2 )

dim res

si file1.attributes = file2.attributes entonces

res = true

más

res = false

final si

Compara = res

final Función
Ejemplo

Pega el siguiente para probar la función:

dim fso , f1 , f2

establecer fso = CreateObject ( " Scripting.FileSystemObject " )

conjunto f1 = fso . getFile ( "nombre de archivo " )

conjunto f2 = fso.GetFile ( " anotherFilename ")
CompareAttributes

( f1 , f2 )
< br >