sctivar la opcion mostrar archivos ocultos

Foro referente al sistema operativo Windows XP
pepe
Usuario linuxero
Usuario linuxero
Mensajes: 1
Registrado: 06 Nov 2008, 20:27
Contactar:

sctivar la opcion mostrar archivos ocultos

Mensajepor pepe » 06 Nov 2008, 20:36

que onda ocupo saber como puedo activar la opcion mostrar los archivos ocultos por que me meto a herramientas opciones de carpeta y la activo luego le doy aceptar y me vuelvo a meter y me sale que esta desactivada que hago para activarla

Avatar de Usuario
Souto
Usuario Bill Gates
Usuario Bill Gates
Mensajes: 10665
Registrado: 25 Feb 2008, 10:21
Ubicación: Galicia
Agradecido : 6 veces
Agradecimiento recibido: 647 veces
Contactar:

Re: sctivar la opcion mostrar archivos ocultos

Mensajepor Souto » 06 Nov 2008, 22:45

Bienvenido al foro!
Es posible que un virus ó similar haya alterado el Registro.
Prueba con esto:


Copia en bloc de notas el texto que te pongo en azul. Guárdalo en Escritorio con cualquier nombre (ocultos, por ejemplo); pero antes de dar en Guardar como pulsa sobre Tipo para que en lugar de *.txt muestre Todos los archivos. Ahora, ya sí, lo guardas como ocultos.vbs. Ratón derecho sobre ese archivo, das en Ejecutar con símbolo de sistema esperas al mensaje, aceptas, reinicias el equipo y a ver si hubo suerte.

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then
On Error Resume Next


On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 2, itemtype
End If

If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders")
End If

If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders")
End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

End If



Saludos
Qui dove il mare luccica e tira forte il vento


Volver a “Windows XP / X64”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados