| |
|
|
| |
-
Windows Script Host - VBScript - Sistema de archivos - Determinación de atributos de los archivos
-
Los atributos de los archivos son concedidos por el sistema operativo o por el usuario mismo.
El siguiente script comprueba, tras la declaración de varables y la creación de la referencia a "FileSystemObject", si
el nombre del archivo existe en la constante "nombrearchivo" (con el metodo "FileExists( )"). Es este el caso, se guardará
una referencia al archivo en la variable "archivo" con el metodo "GetFile( )".
Con el metodo "Echo( )" del objeto "WScript", se editarán los atributos del objeto "File". En este caso, se
determinará el tamaño del archivo con el atributo "Size", así como informaciones temporales del objeto "File"
(creación, último acceso y última modificación), con "DateCreated", "DateAccessed" y "DateModified".
"Attributes" muestra los atributos del archivo en forma de un numero, el cual representa la suma de sus atributos.
A este respecto, la siguiente tabla muestra los atributos disponibles. Un archivo puede estar protegido contra escrituras, escondido y comprimido, por lo
que su atributo seria 131 (1 + 2 + 128).
| Atributo |
Descripción |
| 1 |
Protegido contra escritura |
| 2 |
Oculto |
| 4 |
Sistema |
| 8 |
Unidad de disco |
| 32 |
Archivo |
| 64 |
Enlace |
| 128 |
Comprimido |
Para determinar los atributos correspondientes, se dividirán los atributos numericos con el operador lógico "AND". Cada valor hallado se
entregará a una variable con la correspondiente cadena de caracteres. Al final del script, se eliminarán los espacios en blanco con la función
"Trim( )" y se editarán los atributos.
' atributosarchivos.vbs
' ================================================
Option Explicit
' declaracion de variables
Dim FSO, archivo, salida
' definicion constantes
Const nombrearchivo="c:\ejem\reporte.doc"
' crear objeto
Set FSO = CreateObject("Scripting.FileSystemObject")
' existe el archivo
If FSO.FileExists(nombrearchivo) Then
' en caso si, conectarse
Set archivo = FSO.GetFile(nombrearchivo)
WScript.Echo "Tamaño del archivo: " & archivo.Size & " Bytes."
WScript.Echo "Atributos del archivo: " & archivo.Attributes
WScript.Echo "Creado el " & archivo.DateCreated
WScript.Echo "Modificado el " & archivo.DateLastAccessed
WScript.Echo "Ultimo acceso el " & archivo.DateLastModified
' determinar los atributos del archivo
If archivo.Attributes and 0 Then salida = salida & "Normal "
If archivo.Attributes and 1 Then salida = salida & "solo lectura "
If archivo.Attributes and 2 Then salida = salida & "Oculto "
If archivo.Attributes and 4 Then salida = salida & "Sistema "
If archivo.Attributes and 32 Then salida = salida & "archivo "
If archivo.Attributes and 64 Then salida = salida & "enlace "
If archivo.Attributes and 128 Then salida = salida & "comprimida "
else
WScript.Echo "El archivo " & nombrearchivo & " no fue allado!"
end if
WScript.Echo "El archivo " & nombrearchivo & _
" tiene el atributo numerico [" & Trim(salida) & "]"
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
