hola que tal, me han pasado un scrip para poder quitar los atribustos a las carpetas o archivos cuando se encuantran ocultos ( y no se les puede quitar esta opcion de manera sencilla-sin usar ms-dos). al pricipio me funciono pero despues de unos dias y no se porque ma aparece un error ( el que se muestra)
la script es la siguiente:
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
me podrian decir que anda mal? o si no es mucha molestia subir el archivo ya corregido, jejeje
de ante mano gracias
la script es la siguiente:
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
me podrian decir que anda mal? o si no es mucha molestia subir el archivo ya corregido, jejeje
de ante mano gracias