Discussion :

[Meriemacs]

Bonsoir,

Mes fichiers se sont transformés en raccourcis sur mon disque dur externe. Il s'agissait d'un virus. J'ai alors lancé une analyse approfondie du disque dur externe avec l'antivirus avast et puis j'ai supprimé les anomalies. Je me suis rendu compte que le problème n'a pas été résolu.

Cependant, lorsque je double-clique sur un dossier (raccourci) pour l'ouvrir le contenu ne s'affiche plus dans une nouvelle fenêtre comme le faisait avant. Par ailleurs, le disque dur externe semble toujours rempli.

Comment puis-je récupérer mes données ?

Merci pour votre aide.

[Invité]

Bonjour

Regardes dans les propriétés des options des dossiers (c'est dans un des menu de l'explorateur).

Et décoches : Masquer les fichiers protégés du système d'exploitation.

Il se peut que tu puisses les retrouver, et si c'est le cas, copie ce qu'il y a dans les dossiers dans un autre dossier.

Philippe

[chrtophe]

Regardes du coté de Virus Effect Remover ou ZHPFix, facilement trouvable sur Internet.

[hackoofr]

Surtout ne te paniques pas il existe une solution pour restaurer tes fichiers et tes dossiers cachés
Shortcutremover, outil pour supprimer automatiquement les raccourcis infectés par un virus sur une clé USB
puis poster le rapport

[hackoofr]

Bon, je crois que le vbscript que je t'ai posté ne marche pas avec un disque dur externe, juste il fonctionne avec des clés USB.
Donc, j'ai fait un autre ShowAllHiddenFiles.vbs.
Donc , tu dois copier et coller ce code avec ton bloc-notes et enregistre le sous le nom ShowAllHiddenFiles.vbs puis exécute le et parcourir la lettre de ton disque dur externe et tu dois patienter un peu suivant la taille de ton disque dur externe car le script travaille en arrière plan.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'Ce vbscript sert pour sélectionner un dossier ou bien un lecteur pour afficher tous les fichiers et les sous-dossiers systèmes cachés dans ce dernier
Option Explicit
Dim Copyright,MonDossier,MaCmd
Copyright = " © Hackoo © 2015"
MonDossier = Parcourir_Dossier()
MaCmd = "Attrib -s -h -r " & DblQuote(MonDossier) &"\*.* /S /D"
Call Executer(MaCmd,0)
Call Explore(DblQuote(MonDossier))
'****************************************************************************************************
Function Parcourir_Dossier()
    Dim objShell,objFolder,Message
    Message = "Veuillez sélectionner un dossier pour afficher tous les fichiers et les sous-dossiers systèmes cachés dans ce dernier"& Copyright &""
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Parcourir_Dossier = objFolder.self.path
end Function
'****************************************************************************************************
Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & ""
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & ""
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'****************************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'****************************************************************************************************
Function Explore(filename)
    Dim ws
    Set ws=CreateObject("wscript.Shell")
    ws.run "Explorer /n,/select,"& filename &" "
End Function
'****************************************************************************************************

[Meriemacs]

Bonjour

Regardes dans les propriétés des options des dossiers (c'est dans un des menu de l'explorateur).

Et décoches : Masquer les fichiers protégés du système d'exploitation.

Il se peut que tu puisses les retrouver, et si c'est le cas, copie ce qu'il y a dans les dossiers dans un autre dossier.

Philippe

Philippe,

J'ai pu récupérer mes données hyper importantes en utilisant ta réponse. Je t'en suis très reconnaissante.

Merci encore une fois.

[Meriemacs]

Je vous remercie tous pour votre réactivité. c'est aimable de votre part !!

[tanaka59]

Bonjour,

Pour débloquer ce genre problème

Voici la marche à suivre :

1) ouvrir un éditeur de texte brute (pspad, notepad, blocnote ...)
2) taper ce code :

Code bat :

Sélectionner tout - Visualiser dans une fenêtre à part

attrib <nom du fichier ou repertoire> -S -H + Entrée

<nom du fichier ou repertoire> = c'est le chemin du type C:/ ou D:/ ou E:/ ... (marche pour une clef usb, DDE , DDI , il suffit de changer la lettre du port)

3) Enregistrer le fichier avec l'extension .bat
4) Exécuter le .bat
5) L'ensemble des documents impactés par un status "caché" redeviennent visible .

Voili voilou

[eva114]

Formater le disque dur externe > utiliser un logiciel de récupération pour récupérer les fichiers perdus
Il ya un tutoriel pour référence:

Comment faire pour récupérer des fichiers supprimés du disque dur externe

[chrtophe]

Formater pour récupérer après, t'as pas peur toi. Mauvaise méthode.