04/02/2005, 14:53
|
 | | | Fecha de Ingreso: septiembre-2000 Ubicación: Frente a la compu
Mensajes: 660
Antigüedad: 24 años, 7 meses Puntos: 2 | |
| Propiedad Attributes
Establece o te dice que atributos tiene un archivo o carpeta. Escrituta/lectura o sólo escritura, dependiendo cual tenga el archivo.
Se usa:
objetoFileSystem.[b]Attributes[b] [= newattributes]
Argumentos
[b]objetoFileSystem[b]
Requeridod. Siempre el nombre d eun archivo o careta.
newattributes
Opcional. si se escribe, newattributes is el nuevo valor de atributo para un archivo o carpeta.
Settings
el argumento newattributes puede se uno o varios de los siguientes valores:
Constant Value Description
Normal ----- 0 ---- Normal file. No attributes are set.
ReadOnly ----- 1 ---- Read-only file. Attribute is read/write.
Hidden ------ 2 ----- Hidden file. Attribute is read/write.
System ----- 4 ---- System file. Attribute is read/write.
Volume ------ 8 ---- Disk drive volume label. Attribute is read-only.
Directory ---- 16 ---- Folder or directory. Attribute is read-only.
Archive ----- 32 ---- File has changed since last backup. Attribute is read/write.
Alias ----- 1024 ---- Link or shortcut. Attribute is read-only.
Compressed --2048 ---- Compressed file. Attribute is read-only.
El siguiente es un ejemplo:
[VBScript]
Function ToggleArchiveBit(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
ToggleArchiveBit = "Atributo quitado."
Else
f.attributes = f.attributes + 32
ToggleArchiveBit = "Atributo establecido."
End If
End Function |