de vida o muerte

Hola Hector es insuperable tu ayuda, te lo agradezco mucho pero resulta que
ya usé el Easy Recovery y me trajó todos los archivos de office buenos y
abren bien pero ninguno tiene nombre, digo tienen nombre como por ejemplo
File001, File002, File003 etc. y son mas de 40.000, al momento de buscar un
archivo en particular no se como hacerlodepronto si existiera alguna
forma de recuperarle sus verdaderos nombres..

Mil Gracias

"Héctor Miguel" wrote:

hola, !

> ... resulta que formateo un disco, y luego tengo que recuperar la informacion que existia en el.
> despues de trabajar mucho en esto...recupero la informacion pero los archivos tienen un nombre generico
> por Ej: fil1, file2, file3 y asi consecutivamente...estos archivos abren bien , pero son 54.000.
> lo que necesito es recuperarles el nombre origial, ya que... es imposible buscar determinado archivo entre 54000

ve si te es de utilidad la informacion de la siguiente pagina:
http://www.fermu.com/content/view/246/2/lang,es/

saludos,
hector.

hola, ?

... resulta que ya use el Easy Recovery y me trajo todos los archivos de office buenos
... abren bien pero... tienen nombre como por ejemplo File001, File002, File003 etc. y son mas de 40.000
al momento de buscar un archivo en particular no se como hacerlo...
... si existiera alguna forma de recuperarle sus verdaderos nombres...

1) [por lo pronto]... la macro que te expongo al final...
-> deposita en la hoja activa a que tipo de aplicacion [office] corresponden los archivos
[procura que sea una hoja 'en blanco'] :))

2) [probablemente] 'descubrir' el nombre 'real' de cada archivo vaya a resultar en otro tipo de 'investigaciones' -?-
[quizas ya conociendo su aplicacion] -???-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

=
Sub Tipo_de_archivo_recuperado()
Dim xL As Integer, wD As Integer, pP As Integer, mD As Integer, chK As Integer, _
n_File As Byte, Archivo As String, Temp As String
Application.ScreenUpdating = False
Range("a1:e1") = Array("Excel", "Word", "PowerPoint", "Access", "Deconocido")
ChDir "c:\" ' <= PON AQUI LA RUTA QUE CORRESPONDA <= OJO <= OJO
Archivo = Dir("file*.")
Do While Archivo <> ""
n_File = FreeFile()
Open Archivo For Binary Access Read Lock Read As #n_File
Temp = Input(LOF(n_File), #n_File)
Close #n_File
If InStr(1, Temp, "excel.sheet", vbTextCompare) Then
xL = xL + 1
Cells(xL + 1, 1) = Archivo
ElseIf InStr(1, Temp, "word.document", vbTextCompare) Then
wD = wD + 1
Cells(wD + 1, 2) = Archivo
ElseIf InStr(1, Temp, "powerpoint", vbTextCompare) Then
pP = pP + 1
Cells(pP + 1, 3) = Archivo
ElseIf InStr(1, Temp, "access", vbTextCompare) Then
mD = mD + 1
Cells(mD + 1, 4) = Archivo
Else
chK = chK + 1
Cells(chK + 1, 5) = Archivo
End If
Archivo = Dir()
Loop
End Sub