Carpetas Ocultas

Foro referente al sistema operativo Windows XP
escorpion911
Usuario linuxero
Usuario linuxero
Mensajes: 19
Registrado: 02 Abr 2008, 16:45
Contactar:

Carpetas Ocultas

Mensajepor escorpion911 » 22 Abr 2008, 18:05

:help: Hola, espero alguien pueda decirme si mi problema tiene solución sin tener que formatear y volver a instalar todo, resulta que voy a panel de control, opciones de carpeta, pestaña ver, aplico mostrar todos los archivos y carpetas ocultos, doy aplicar, aceptar, cierro y no me surte efecto, vuelvo a hacer el mismo procedimiento y sigue marcada la opcion no mostrar archivos ni carpetas ocultos, resulta que en Documents and Settings, existen varios archivos y carpetas ocultas que quiero revisar, pero no puedo hacerlo debido a lo que ya comente.
Podrá alguien ayudarme? Se los agradezco de antemano

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: Carpetas Ocultas

Mensajepor Souto » 22 Abr 2008, 18:40

Bienvenido al foro!.
Prueba con esto: copia y pega en bloc de notas el texto que más abajo te pongo en azul. A continuación das en Guardar como, pulsa sobre la pestaña que hay a la derecha de Tipo y modifica para que se muestre Todos los archivos. Ahora en la casilla Nombre pon Ocultos.vbs. Guárdalo en Escritorio.
A continuación pulsa con ratón derecho sobre Ocultos.vbs y das en Abrir con el símbolo de sistema /Ejecutar. A continuacón reinicia el equipo y a ver si ha habido suerte.

Saludos

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
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 4 invitados