Вопрос : Нужно восстановить «двинутые и уничтоженные» данные на сервере 2003 Windows

Я имею потребителя побежать XP профессиональное SP3 на рабочем месте.
She имеет 2 письма привода (f: и o:) я составлены карту до 2 скоросшивателя на Windows 2003 Server.

She начали двинуть (скоросшиватели не экземпляра) от f: управляйте к o: управляйте. Она решила что она не хотела двинуть некоторые из предназначенных скоросшивателей, поэтому она остановила работу движения. Она после этого пошла к ее o: управляйте и уничтожил 3 или 4 скоросшивателя, котор она уже двинула - думающ что они пошли назад или остали на f: привод. o: управляйте будет теперь пуст по мере того как она хотела но скоросшиватели теперь ы от f: управляйте (или сервер коль на то пошло).

Are они recoverable? мой мыслительный процесс

So должен установить данные берет инструмент на сервере как «Recuva» для того чтобы попытаться восстановить эти архивы. Очевидно они не находятся в ящике рециркулировать. Однако, я не уверен если это даже будет работать.

If потребитель выполнил эту функцию движения и delete от ее рабочего места, должен я попытать сделать что-нибыдь на ее PC или будет сервер местом, котор нужно начать?

далеко как подпорки, они не имеют никакие подпорки с 2 месяцев тому назад. Я разрешил тот вопрос сегодня - поэтому идущ вперед, они будут иметь подпорки - но то не помогает с сегодняшними предложениями issue.

Any? они находятся в критическом состоянии теперь.  Thanks
 class=

Ответ : Нужно восстановить «двинутые и уничтоженные» данные на сервере 2003 Windows

я двигал Кодего к модулю, который будет более обычный местом, котор нужно найти его.

и после этого добавлено тип mimics больше всего Application.FileSearch.
будет главным образом работой других но я исправил она для того чтобы искать subfolders более лучше и impement больше функций первоначально fileseach.

Я uploaded откорректированный workbook но в противном случае….

>Кодий<---------> откорректированное %ur…. место в модуль и уничтожает старую от Workbook1

Sub copyFromFiles ()
   Тусклое wksCopyTo как рабочий лист
   Тусклое wkbCopyFrom как Workbook
   Тусклое copyToHere как ряд
   
   Установите wksCopyTo = ThisWorkbook.Sheets (1)
   wksCopyTo.Cells.Clear
   
   
   Установите copyToHere = wksCopyTo.Range («a1»)
   n = 0
   
   На резюме ошибки затем
   Тусклое AppFileSearch как новое FileSearch
   
   AppFileSearch.LookIn = ThisWorkbook.path
   AppFileSearch.fileType = «xls?»            «<>    AppFileSearch.fileName = «SummarytestData»»<>    AppFileSearch.SearchSubFolders = True
   AppFileSearch.Execute
   
   Для I = 1 к AppFileSearch.Count
       Если AppFileSearch.FoundFiles (I) = ThisWorkbook.FullName после этого
           «прыгните это одно»
           'Переход NotMe
       Еще
            Установите wkbCopyFrom = Workbooks.Open (AppFileSearch.FoundFiles (I))
            n = n + 1
            С wkbCopyFrom.Sheets («Sheet1»)
                copyToHere.Offset (0, 1) =. Ряд («A1») .value
                copyToHere.Offset (0, 2) =. Ряд («B1») .value
                copyToHere.Offset (0, 3) =. Ряд («C1») .value
                copyToHere.Offset (0, 4) =. Ряд («A4») .value
                copyToHere.Offset (0, 5) =. Ряд («B4») .value
                copyToHere.Offset (0, 6) =. Ряд («C4») .value
             Конец с
           
            Установите copyToHere = copyToHere.Offset (1)
   
           wkbCopyFrom.Close ложное
       Закончитесь если

   Затем iий
     
       
Подводная лодка конца


>%place<---------------------> это Кодий в новое ClassModule и называют его 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:

'' 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 как шнур
Тусклые pSearchSubFolders как булевско
Тусклое pFileName как шнур
Тусклое pFileType как шнур

Общественные pFoundFiles как новое собрание


Приватное Sub Class_Initialize ()
    pLookIn = «.»
    pFileType = «*»
    pFileName = «*»
    pSearchSubFolders = ложно
    
Подводная лодка конца
Общественная функция NewSearch ()
    Class_Initialize
    Установите pFoundFiles = новое собрание
    
Закончите функцию
Общественное имущество получает отсчет () как шнур
    Отсчет = pFoundFiles.Count
Свойство конца
Общественное имущество получает FoundFiles (xx) как шнур
    FoundFiles = pFoundFiles (xx)
Свойство конца
Общественное имущество получает LookIn () как шнур
    LookIn = pLookIn
Свойство конца
Общественное имущество препятствовало LookIn (значение как шнур)
    pLookIn = значение
Свойство конца
Общественное имущество получает SearchSubFolders () как булевско
    SearchSubFolders = pSearchSubFolders
Свойство конца
Общественное имущество препятствовало SearchSubFolders (значение как булевско)
    pSearchSubFolders = значение
Свойство конца
Общественное имущество получает fileName () как шнур
    fileName = pFileName
Свойство конца
Общественное имущество препятствовало fileName (значение как шнур)
    pFileName = значение
Свойство конца
Общественное имущество получает fileType () как шнур
    fileType = pFileType
Свойство конца
Общественное имущество препятствовало fileType (значение как шнур)
    pFileType = значение
Свойство конца
Общественная функция исполняет () как длиной

    Затемните I как длиной
    Затемните sLookIn как шнур
    Затемните sDirName как шнур
    Затемните sCurDir как шнур
    Затемните sFileName как шнур
    'Тусклый ff как FilesFound
   
    iий = 1
    'Установите ff = новое FileSearchFound
    sLookIn = pLookIn
    RecurseFolder (sLookIn)
    
    
    
    Исполните = pFoundFiles.Count
Закончите функцию

Sub RecurseFolder (sFolderStart)
    
    sFileName = Dir (sFolderStart & «\» & pFileName & «.» & pFileType, vbNormal)
    Не сделать до Len (sFileName) = 0

        pFoundFiles.Add (sFolderStart & «\» & sFileName)
        sFileName = Dir
    Петля
    Если pSearchSubFolders после этого
        sDirName = Dir (sFolderStart & «\», vbDirectory)
        Тусклое FoundDirectories как новое собрание, xxDir как вариант
        Не сделать до Len (sDirName) = 0
        
            sCurDir = sFolderStart & «\» & sDirName
            Если GetAttr (sCurDir) = vbDirectory и sDirName <> «.», то И sDirName <> «.» После этого
                sCurDir FoundDirectories.Add
            Закончитесь если
            sDirName = Dir
        Петля
        Для каждого xxDir в FoundDirectories
            RecurseFolder (xxDir)
        Следующее xxDir
 
    Закончитесь если


Закончите подводную лодку
Общественная ясность функции () как длиной
    NewSearch
Функция конца
 
MSEx2007-Summary.xls (59 KB) (тип архива детали) 
Обновленный macro workbook
 
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us