Ghoster v1 - by xassiz!
Os dejo mi antiguo (que digo antiguo, antiquisimo!) script que sirve para ocultar y desocultar archivos.
En unos dias traigo mejoras
var = InputBox("1. Ocultar un archivo"&vbCrLf&vbCrLf&"2. Desocultar un archivo"&vbCrLf&vbCrLf&"3. Salir", _
"Ghosther v1.0 by xassiz","Selecciona una opcion")
If var = 3 then
Mensaje = Msgbox("¿Desea terminar la aplicacion?",36,"Terminar")
If Mensaje = 6 then
wscript.quit
Else
wscript.quit
End if
End if
set objshell = createobject("wscript.shell")
set objfso = createobject("scripting.filesystemobject")
If var = 1 then
FArchivo = InputBox("Escribe la ruta del archivo a ocultar,"&vbCrLf&vbCrLf&"como en el ejemplo:", _
"Ghosther v1.0 by xassiz//Ocultar archivo","C:\archivo.txt")
If objfso.fileexists(FArchivo) then
set archivo = objfso.getfile(FArchivo)
archivo.attributes = 2
Else
Msgbox "El archivo seleccionado NO EXISTE" & chr(13) & "Se terminara la aplicacion", 16, "Archivo no localizado"
End if
Elseif var = 2 then
FArchivo = InputBox("Escribe la ruta del archivo a desocultar,"&vbCrLf&vbCrLf&"como en el ejemplo:", _
"Ghosther v1.0 by xassiz//Desocultar archivo","C:\archivo.txt")
If objfso.fileexists(FArchivo) then
set archivo = objfso.getfile(FArchivo)
archivo.attributes = 0
Else
Msgbox "El archivo seleccionado NO EXISTE" & chr(13) & "Se terminara la aplicacion", 16, "Archivo no localizado"
End if
Else
Msgbox "El valor ingresado no es correcto" & chr(13) & "Se terminara la aplicacion", 16, "Incorrecto"
End if
Espero que os guste!
bytes
Fuente: e-r00t