Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2670 connectés 

  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  fichiers caches disparus!

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

fichiers caches disparus!

n°2777247
gamada
Posté le 02-05-2008 à 11:49:44  profilanswer
 

Bonjour à tous!
Je rencontre un problème:
Alors que je pouvais modifier mes fichiers cachés comme ceci:
http://www.imageshotel.org/images/gam/paintmz4.jpg
 
Je n'y ai plus maintenant accès, ma fenêtre se présente ainsi:
http://www.imageshotel.org/images/gam/corel021.jpg
http://www.imageshotel.org/images/gam/corel022.jpg
 
Si il se trouve quelqu'un pour m'aider à les retrouver: Grand Merci!
(mon système: Windows XP - Media Centre Edition - Version 2002 - Sce PAck 2)

mood
Publicité
Posté le 02-05-2008 à 11:49:44  profilanswer
 

n°2777249
aldo13000
Posté le 02-05-2008 à 12:38:32  profilanswer
 

Salut ,  
 
J'ai ca qui traine sur mon disque , ca vient surement du site de Kelly  , c'est a enregistrer avec extension .VBS
 
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


---------------


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Win NT/2K/XP

  fichiers caches disparus!

 

Sujets relatifs
[Resolu] Comment agencer ses fichiers lorsque l'on a 2 partitions ?Problème de transfert de fichiers avec FileZilla
Les fichiers drivers vraiment utilesLes fichiers drivers vraiment utiles
Windows Live Messenger...fichiers ?Problèmes d'accès à mes propres fichiers
Vista: Gestion et lecture de fichiers WMAFichiers temporaires sur lecteur non voulu
Alternative a la fonction "fichiers hors connexion" de XP ? 
Plus de sujets relatifs à : fichiers caches disparus!


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR