Recuperar archivos ocultos

Foro referente al sistema operativo Windows XP
weslynk
Usuario linuxero
Usuario linuxero
Mensajes: 1
Registrado: 11 Mar 2009, 15:39
Contactar:

Recuperar archivos ocultos

Mensajepor weslynk » 11 Mar 2009, 15:49

Según el centro de ayuda y soporte técnico de windows...:

Para mostrar carpetas y archivos ocultos:


1. Abra Opciones de carpeta en el Panel de control.
Haga clic en Inicio, seleccione Configuración y, después, haga clic en Panel de control.
Haga doble clic en Opciones de carpeta.

2. En la ficha Ver, en Archivos y carpetas ocultos, haga clic en Mostrar todos los archivos y carpetas ocultos.

Mi problema es...:

Sigo todos los pasos, pero en el punto 2. entro en Ver, pero no me da la opción de Archivos y carpetas ocultos, solo tengo "Archivos y carpetas" y "Administración de pares de páginas Web y carpetas"

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: Recuperar archivos ocultos

Mensajepor Souto » 12 Mar 2009, 13:51

Copia en bloc de notas el texto que más abajo te pongo en azul. Guárdalo en Escritorio con cualquier nombre (reparar, 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
reparar.vbs
Ratón derecho sobre ese archivo>>Abrir con símbolo de sistema, aceptas en todas las pestañas, y cuando finalice 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 6 invitados