Question : Devoir reconstituer des données « déplacées et supprimées » sur un serveur 2003 de Windows

J'ai un utilisateur courir XP pro SP3 sur un poste de travail. le
She a deux lettres d'entraînement (F : et O :) tracé à deux chemises sur Windows 2003 Server.

She ont commencé à déplacer des chemises (pas de copie) à partir du F : conduire à l'O : conduire. Elle a décidé qu'elle n'a pas voulu déplacer certaines des chemises prévues, donc elle a arrêté le travail de mouvement. Elle est alors allée à son O : conduire et supprimer les 3 ou 4 chemises qu'elle s'était déjà déplacées - pensant qu'elles retourneraient ou resteraient allumées le F : commande. l'O : conduire est maintenant vide comme elle a voulu mais les chemises sont maintenant allées du F : conduire (ou le serveur pour cette matière).

Are ils récupérables ? mon processus de pensée du

So est d'installer des données récupèrent l'outil sur le serveur tel que « Recuva » pour essayer de rechercher ces dossiers. Évidemment ils ne sont pas dans le casier de réutilisation. Cependant, je ne suis pas sûr si ceci fonctionnera même. est-ce que

If l'utilisateur cette fonction DELETE de mouvement et de son poste de travail, j'ai rempli devrais est-il essayer de faire quelque chose sur son PC ou le serveur l'endroit à démarrer ? le

jusque des supports, ils n'ont eu aucun support depuis il y a 2 mois. J'ai résolu ce problème aujourd'hui - ainsi allant en avant, auront-ils des supports - est-ce que mais cela n'aide pas avec des suggestions d'aujourd'hui d'issue.

Any ? elles sont dans un état critique maintenant.  Thanks
 class= de

Réponse : Devoir reconstituer des données « déplacées et supprimées » sur un serveur 2003 de Windows

j'ai déplacé le code à un module, qui est l'endroit plus commun pour le trouver.

et alors supplémentaire une classe qui imitateurs la plupart de l'Application.FileSearch.
c'est la plupart du temps le travail de d'autres mais je l'ai fixé pour rechercher des subfolders mieux et l'impement plus de fonctions du fileseach original.

J'ai téléchargé le cahier de travail révisé mais autrement….

>code<---------> révisé par %ur…. l'endroit dans un module et suppriment le vieux de Workbook1

copyFromFiles secondaires ()
   Faible wksCopyTo comme feuille de travail
   Faible wkbCopyFrom comme cahier de travail
   Faible copyToHere comme gamme
   
   Placer le wksCopyTo = le ThisWorkbook.Sheets (1)
   wksCopyTo.Cells.Clear
   
   
   Placer le copyToHere = le wksCopyTo.Range (« a1 »)
   n = 0
   
   Sur le résumé d'erreur après
   Faible AppFileSearch en tant que nouveau FileSearch
   
   AppFileSearch.LookIn = ThisWorkbook.path
   AppFileSearch.fileType = « xls ? »            « <>    AppFileSearch.fileName = « SummarytestData » »<>    AppFileSearch.SearchSubFolders = rectifient
   AppFileSearch.Execute
   
   Pour I = 1 à AppFileSearch.Count
       Si AppFileSearch.FoundFiles (i) = puis ThisWorkbook.FullName
           « sauter celui-ci »
           'NotMe GoTo
       Autrement
            Placer le wkbCopyFrom = le Workbooks.Open (AppFileSearch.FoundFiles (i))
            n = n + 1
            Avec wkbCopyFrom.Sheets (« Sheet1 »)
                copyToHere.Offset (0, 1) =. Gamme (« A1 ») .value
                copyToHere.Offset (0, 2) =. Gamme (« B1 ») .value
                copyToHere.Offset (0, 3) =. Gamme (« C1 ») .value
                copyToHere.Offset (0, 4) =. Gamme (« A4 ») .value
                copyToHere.Offset (0, 5) =. Gamme (« B4 ») .value
                copyToHere.Offset (0, 6) =. Gamme (« C4 ») .value
             Extrémité avec
           
            Placer le copyToHere = le copyToHere.Offset (1)
   
           wkbCopyFrom.Close faux
       Finir si

   Après i
     
       
Sous-marin d'extrémité


>%place<---------------------> ce code dans un nouveau ClassModule et l'appellent FileSearch


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 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :

'' par PrismP @ http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6
'http://social.msdn.microsoft.com/profile/prizmp/?type=forum&referrer=http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6


Faible pLookIn comme corde
Faibles pSearchSubFolders comme booléens
Faible pFileName comme corde
Faible pFileType comme corde

pFoundFiles publics en tant que nouvelle collection


Class_Initialize secondaire privé ()
    pLookIn = « . »
    pFileType = « * »
    pFileName = « * »
    pSearchSubFolders = faux
    
Sous-marin d'extrémité
Fonction publique NewSearch ()
    Class_Initialize
    Placer les pFoundFiles = nouvelle collection
    
Finir la fonction
La propriété publique obtiennent le compte () comme corde
    Compte = pFoundFiles.Count
Propriété d'extrémité
La propriété publique obtiennent FoundFiles (xx) comme corde
    FoundFiles = pFoundFiles (xx)
Propriété d'extrémité
La propriété publique obtiennent LookIn () comme corde
    LookIn = pLookIn
Propriété d'extrémité
La propriété publique a laissé LookIn (la valeur comme corde)
    pLookIn = valeur
Propriété d'extrémité
La propriété publique obtiennent SearchSubFolders () comme booléenne
    SearchSubFolders = pSearchSubFolders
Propriété d'extrémité
La propriété publique a laissé SearchSubFolders (la valeur comme booléenne)
    pSearchSubFolders = valeur
Propriété d'extrémité
La propriété publique obtiennent le nom de fichier () comme corde
    nom de fichier = pFileName
Propriété d'extrémité
La propriété publique a laissé le nom de fichier (la valeur comme corde)
    pFileName = valeur
Propriété d'extrémité
La propriété publique obtiennent le fileType () comme corde
    fileType = pFileType
Propriété d'extrémité
La propriété publique a laissé le fileType (la valeur comme corde)
    pFileType = valeur
Propriété d'extrémité
La fonction publique s'exécutent () en tant que longtemps

    Obscurcir I en tant que longtemps
    Obscurcir le sLookIn comme corde
    Obscurcir le sDirName comme corde
    Obscurcir le sCurDir comme corde
    Obscurcir le sFileName comme corde
    'Faible FF comme FilesFound
   
    i = 1
    'Placer FF = nouveau FileSearchFound
    sLookIn = pLookIn
    RecurseFolder (sLookIn)
    
    
    
    Exécuter = pFoundFiles.Count
Finir la fonction

Substrater RecurseFolder (le sFolderStart)
    
    sFileName = Dir (sFolderStart et « \ » et pFileName et « . » et pFileType, vbNormal)
    Faire jusqu'à Len (sFileName) = 0

        pFoundFiles.Add (sFolderStart et « \ » et sFileName)
        sFileName = Dir
    Boucle
    Si pSearchSubFolders alors
        sDirName = Dir (sFolderStart et « \ », vbDirectory)
        Faible FoundDirectories en tant que nouvelle collection, xxDir comme variante
        Faire jusqu'à Len (sDirName) = 0
        
            sCurDir = sFolderStart et « \ » et sDirName
            Si GetAttr (sCurDir) = vbDirectory et sDirName <> « . » Et sDirName <> « . » Puis
                sCurDir de FoundDirectories.Add
            Finir si
            sDirName = Dir
        Boucle
        Pour chaque xxDir dans FoundDirectories
            RecurseFolder (xxDir)
        Prochain xxDir
 
    Finir si


Finir le sous-marin
Espace libre public de fonction () en tant que longtemps
    NewSearch
Fonction de fin
 
MSEx2007-Summary.xls (59 KBs) (type de dossier détails) 
Macro cahier de travail mis à jour
 
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us