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