Foro de elhacker.net

Este es un pequeño script que oculta y desoculta ficheros.

Bugs (No es un bug pero es un pequeño problema):
- Los ficheros ya ocultados tienes que saberte el nombre y la extensión para desocultarlo (UnHide)

Código:

set objshell = createobject("wscript.shell")
Set objdialog = createobject("useraccounts.commondialog")
Set objfso = createobject("scripting.filesystemobject")
Msgbox "(Un)Hide Files 2" & vbNewLine & "by Erik#",vbInformation,"Ghost Files 2"
opc = inputbox("1.Ocultar archivo" & vbNewLine & "2.Desocultar archivo","Menú de selección","")
if opc = 1 then
objdialog.filterindex = 1 
objdialog.initialdir = "C:\" 
odresp = objdialog.showopen
Set objfso = createobject("scripting.filesystemobject")
Set archivo = objfso.getfile(objdialog.filename)
archivo.attributes = 2
Elseif opc = 2 then
objdialog.filterindex = 1 
objdialog.initialdir = "C:\" 
odresp = objdialog.showopen
Set archivo = objfso.getfile(objdialog.filename)
archivo.attributes = 0
Else
msgbox "ERROR: Seleccione una opcion real",vbCritical,"ERROR"
End If

Esta muy bien  :P
Nota: objshell lo creas en la primera línea, pero no lo utilizas en todo el code  :rolleyes:

Y lo que dices de que los archivos ocultos hay que escribirlos a mano es lógico, ya que con el objeto dialog ves los archivos tal cual los ves en carpetas, la alternativa es activar la opción de "Mostrar todos los archivos y carpetas ocultos" en las carpetas  :P

Saludos