Cuestión : Necesitar restaurar los datos “movidos y suprimidos” sobre un servidor 2003 de Windows

Tengo un usuario el funcionar de XP favorable SP3 en un sitio de trabajo. el
She tiene dos letras de impulsión (F: y O:) trazado a dos carpetas en Windows 2003 Server.

She comenzaron a mover carpetas (no de la copia) desde la F: conducir al O: conducir. Ella decidía que ella no quiso mover algunas de las carpetas previstas, por lo tanto ella paró el trabajo del movimiento. Ella entonces fue a su O: conducir y suprimió las 3 o 4 carpetas que ella se había movido ya - pensando que volverían o quedarían orientadas la F: impulsión. el O: conducir es vacío ahora como ella quiso pero las carpetas ahora se van de la F: conducir (o el servidor para esa materia). ¿

Are ellos recuperables? mi proceso del pensamiento del

So es instalar datos recupera la herramienta en el servidor tal como “Recuva” para intentar recuperar estos archivos. No están obviamente en el compartimiento de reciclaje. Sin embargo, no estoy seguro si esto incluso trabaja. ¿el

If el usuario realicé esta función del movimiento y de la cancelación de su sitio de trabajo, debo intentar hacer cualquier cosa en su PC o es el servidor el lugar a comenzar? el

hasta respaldos, no han tenido ningún respaldo desde hace 2 meses. ¿Resolví esa edición hoy - así que yendo adelante, tendrán respaldos - pero ése no ayuda con sugerencias de hoy de issue.

Any? ahora están en un estado crítico.  Thanks
 class= del

Respuesta : Necesitar restaurar los datos “movidos y suprimidos” sobre un servidor 2003 de Windows

he movido el código a un módulo, que es el lugar más común para encontrarlo.

y entonces agregado una clase que mímico la mayor parte de el Application.FileSearch.
es sobre todo el trabajo de otros pero lo fijé para buscar subfolders mejor y el impement más funciones del fileseach original.

Cargué el libro de trabajo revisado pero de otra manera….

>código<---------> revisado %ur…. el lugar en un módulo y suprime el viejo de Workbook1

copyFromFiles secundarios ()
   wksCopyTo dévil como hoja de trabajo
   wkbCopyFrom dévil como libro de trabajo
   copyToHere dévil como gama
   
   Fijar el wksCopyTo = ThisWorkbook.Sheets (1)
   wksCopyTo.Cells.Clear
   
   
   Fijar el copyToHere = wksCopyTo.Range (“a1”)
   n = 0
   
   En curriculum vitae del error después
   AppFileSearch dévil como nuevo FileSearch
   
   AppFileSearch.LookIn = ThisWorkbook.path
   AppFileSearch.fileType = “xls?”            “<>    AppFileSearch.fileName = “SummarytestData””<>    AppFileSearch.SearchSubFolders = verdad
   AppFileSearch.Execute
   
   Para i = 1 a AppFileSearch.Count
       Si AppFileSearch.FoundFiles (i) = ThisWorkbook.FullName entonces
           “saltar éste”
           'NotMe indicado
       
            Fijar el wkbCopyFrom = Workbooks.Open (AppFileSearch.FoundFiles (i))
            n = n + 1
            Con wkbCopyFrom.Sheets (“Sheet1”)
                copyToHere.Offset (0, 1) =. Gama (“A1”) .value
                copyToHere.Offset (0, 2) =. Gama (“B1”) .value
                copyToHere.Offset (0, 3) =. Gama (“C1”) .value
                copyToHere.Offset (0, 4) =. Gama (“A4”) .value
                copyToHere.Offset (0, 5) =. Gama (“B4”) .value
                copyToHere.Offset (0, 6) =. Gama (“C4”) .value
             Extremo con
           
            Fijar el copyToHere = copyToHere.Offset (1)
   
           wkbCopyFrom.Close falso
       Terminar si

   Después i
     
       
Submarino del extremo


>%place<---------------------> este código en un nuevo ClassModule y lo nombran 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:

'' por 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


pLookIn dévil como secuencia
pSearchSubFolders déviles como boleanos
pFileName dévil como secuencia
pFileType dévil como secuencia

pFoundFiles públicos como nueva colección


Class_Initialize secundario privado ()
    pLookIn = “.”
    pFileType = “*”
    pFileName = “*”
    pSearchSubFolders = falso
    
Submarino del extremo
Función pública NewSearch ()
    Class_Initialize
    Fijar los pFoundFiles = nueva colección
    
Terminar la función
La característica pública consigue cuenta () como secuencia
    Cuenta = pFoundFiles.Count
Característica del extremo
La característica pública consigue FoundFiles (xx) como secuencia
    FoundFiles = pFoundFiles (xx)
Característica del extremo
La característica pública consigue LookIn () como secuencia
    LookIn = pLookIn
Característica del extremo
La característica pública dejó LookIn (el valor como secuencia)
    pLookIn = valor
Característica del extremo
La característica pública consigue SearchSubFolders () como boleana
    SearchSubFolders = pSearchSubFolders
Característica del extremo
La característica pública dejó SearchSubFolders (el valor como boleano)
    pSearchSubFolders = valor
Característica del extremo
La característica pública consigue nombre de fichero () como secuencia
    nombre de fichero = pFileName
Característica del extremo
La característica pública dejó el nombre de fichero (el valor como secuencia)
    pFileName = valor
Característica del extremo
La característica pública consigue el tipo de archivo () como secuencia
    tipo de archivo = pFileType
Característica del extremo
La característica pública dejó el tipo de archivo (el valor como secuencia)
    pFileType = valor
Característica del extremo
La función pública ejecuta () como de largo

    Amortiguar i como de largo
    Amortiguar el sLookIn como secuencia
    Amortiguar el sDirName como secuencia
    Amortiguar el sCurDir como secuencia
    Amortiguar el sFileName como secuencia
    'FF dévil como FilesFound
   
    i = 1
    'Fijar FF = nuevo FileSearchFound
    sLookIn = pLookIn
    RecurseFolder (sLookIn)
    
    
    
    Ejecutar = pFoundFiles.Count
Terminar la función

Sub RecurseFolder (el sFolderStart)
    
    sFileName = Dir (sFolderStart y “\” y pFileName y “.” y pFileType, vbNormal)
    Hacer hasta Len (sFileName) = 0

        pFoundFiles.Add (sFolderStart y “\” y sFileName)
        sFileName = Dir
    Lazo
    Si pSearchSubFolders entonces
        sDirName = Dir (sFolderStart y “\”, vbDirectory)
        FoundDirectories dévil como nueva colección, xxDir como variante
        Hacer hasta Len (sDirName) = 0
        
            sCurDir = sFolderStart y “\” y sDirName
            Si GetAttr (sCurDir) = vbDirectory y sDirName <> “.” Y sDirName <> “.” Entonces
                sCurDir de FoundDirectories.Add
            Terminar si
            sDirName = Dir
        Lazo
        Para cada xxDir en FoundDirectories
            RecurseFolder (xxDir)
        xxDir siguiente
 
    Terminar si


Terminar el submarino
Claro público de la función () como de largo
    NewSearch
Función del final
 
MSEx2007-Summary.xls (59 KB) (tipo de archivo detalles) 
Libro de trabajo macro actualizado
 
Otras soluciones  
 
programming4us programming4us