Cómo comparar los atributos de los archivos en VBS

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 )