Cambiar atributos mediante arrastrar y soltar



Si accedes a las propiedades de un archivo o una carpeta, podrás cambiar sus atributos fácilmente, al menos alguno de ellos. Por ejemplo, podrás convertirlo en un archivo de sólo lectura u oculto. Este es sin duda el modo más habitual de hacerlo. También puedes utilizar el intérprete de comandos (cmd) mediante el comando Attrib para cambiar atributos de archivos y carpetas, más completo que el modo habitual. Para obtener más información sobre el comando Attrib, ejecuta la siguiente orden desde el menú Inicio > Ejecutar (sólo en Windows XP):

hh ntcmds.chm::/attrib.htm

De esta forma, puedes asignar atributos de sólo lectura, oculto y sistema, e incluso asignar varios atributos a un solo objeto.

Pero si quieres hacerlo de una manera más rápida y sencilla, utiliza este método: simplemente arrastrando el archivo o carpeta hasta un fichero que se encargará de cambiar sus atributos en un par de clics. Se trata de un script mediante el cual podrás asignar o quitar cualquier atributo a archivos y carpetas. Para crear este script, sigue estos pasos:

1.- Crea en el Escritorio un nuevo archivo de texto mediante el Bloc de notas (notepad)

2.- Ejecuta el archivo e introduce el siguiente texto:



Dim fso, archiv, attrib, i, arg
Set fso = CreateObject("Scripting.FilesystemObject")

arg = wscript.arguments.item(0)

if fso.fileexists(arg) = true then
i = 1
elseif fso.folderexists(arg) = true then
i = 2
end if

attrib = inputbox("Teclea el número correspondiente al atributo que quieres asignar." & vbcrlf & "- 0 Sin atributos" & vbcrlf & "- 1 Sólo lectura" & vbcrlf & "- 2 Oculto" & vbcrlf & "- 3 Sólo lectura y Oculto" & vbcrlf & "- 4 Sistema" & vbcrlf & "- 5 Sistema y Sólo lectura" & vbcrlf & "- 6 Sistema y Oculto" & vbcrlf & "- 7 Sistema, Oculto y Sólo lectura")

if i = 1 then
set archiv = fso.GetFile(arg)
archiv.attributes = attrib
set archiv = nothing
msgbox "El atributo ha sido asignado.", 0, "Finalizado con éxito"
end if

if i = 2 then
set archiv = fso.GetFolder(arg)
archiv.attributes = attrib
set archiv = nothing
msgbox "El atributo ha sido asignado.", 0, "Finalizado con éxito"
end if

Ahora, guarda el archivo en el Escritorio con el nombre Cambiar atributos y con extensión VBS (Cambiar atributos.vbs).


Nota: Para ahorrarte trabajo, si no quieres crear este archivo, puedes descargarlo desde esta dirección:

http://ekortes.googlepages.com/Cambiaratributos.vbs (libre de virus)


Ya puedes probar la efectividad del script: arrastra un archivo cualquira (desde cualquier ubicación) justo sobre el icono del archivo vbs. Inmediatamente, se abrirá una ventana para asignar atributos. Cada número, del 0 al 7 representa un atributo o conjunto de ellos. Escribe el número del atributo que quieres asignar. Esta es la lista que aparece:

- 0 Sin atributos
- 1 Sólo lectura
- 2 Oculto
- 3 Sólo lectura y Oculto
- 4 Sistema
- 5 Sistema y Sólo lectura
- 6 Sistema y Oculto
- 7 Sistema, Oculto y Sólo lectura

Puedes comprobar la efectividad del script al asignar diferentes atributos, si utilizas el símbolo del sistema mediante el comando attrib. Por ejemplo, vamos a cambiar atributos al archivo Documento.doc que se halla en el Escritorio. Por defecto, no tiene atributos (número 0). Arrastra Documento.doc hasta el fichero Cambiar atributos.vbs y cámbiale el atributo a Sólo lectura (número 1). Ahora abre una ventana de comandos (inicio > ejecutar > cmd) y sitúate en el Escritorio. Escribe el siguiente comando y pulsa Enter:

attrib "Documento.doc"

verás que se ha creado una línea con la ruta del archivo y una R en la cabecera. Esta R (Read) significa que el archivo es de sólo lectura.

Si el atributo es de Oculto (número 2), aparecerá una H (Hide) en la cabecera.
Si los atributos son de Sólo lectura y Oculto (número 3), aparecerán las letras HR (Hide-Read) en la cabecera.
Si el atributo es de Sistema (número 4), aparecerá una S (System) en la cabecera.
Si los atributos son de Sistema y Sólo lectura (número 5), aparecerán las letras SR (System-Read) en la cabecera.
Si los atributos son de Sistema y Oculto (número 6), aparecerán las letras SH (System-Hide) en la cabecera.
Por último, si los atributos son de Sistema, Oculto y Sólo lectura (número 7), aparecerán las letras SHR (System-Hide-Read) en la cabecera de la ruta del archivo.

*

*

*