[求助]恢复了一大堆的DOC文件,恢复后文件名分别变成按顺序SH001...SH786,如何将文档

bhdsgt

误删了几百个word文档，用数据恢复软件恢复后，这些文档的文件名分别变成按顺序“SH001”、“SH002”、...“SH786”，查找起来相当麻烦，有没有办法将文档中的标题提取出来变为文件名？

konggs

能

守柔

请参考：
Option Explicit

Sub Example()
Dim MyDialog As FileDialog, vrtSelectedItem As Variant
Dim myArray() As String, OldName As String, thisPath As String
Dim NewName As String
' On Error Resume Next
'定义一个文件夹选取对话框
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear '清除所有文件筛选器中的项目
.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
.AllowMultiSelect = True '允许多项选择
If .Show = -1 Then '确定
thisPath = .InitialFileName
For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
NewName = GetFileTitle(thisPath, vrtSelectedItem)
If NewName <> "" Then
Name vrtSelectedItem As thisPath & NewName & ".doc"
End If
Next vrtSelectedItem
End If
End With
End Sub
Function GetFileTitle(apath, strFl) As String
'请在VBE/工具/引用中勾选对于MICROSOFT SHELL CONTROLS AND AUTOMATION
Dim shl As Shell32.Shell
Dim shfd As Shell32.Folder
Dim Flname As String
Set shl = New Shell
Set shfd = shl.NameSpace(apath)
Flname = VBA.Replace(strFl, apath, "")
GetFileTitle = shfd.GetDetailsOf(shfd.Items.Item(Flname), 10)
End Function

bhdsgt

守柔版主，我不是很明白。能告诉我具体的操作步骤吗？

[此贴子已经被作者于2006-3-11 18:12:57编辑过]

bhdsgt

我是新手，有谁能教我怎样操作吗？

c81

守版主的方法我没试，比较专业，可能会管用。 我给你一法，虽简单但确实有作用。 那就是将你的那些文档在操作系统中的排列视图改成“详细信息”，在其类别栏右键调出“标题”即可。

bhdsgt

但如何能按文件名保存出来呢？

jslublove

谢谢6楼的，学到一招了

Maybe

调出标题后能怎么样呢!!??还有这个是不是对EXCEL文件也能有效呢!!

也紧急求助一下啊!我的好多EXCEL的文件名也自动变掉了啊!怎么才能改过来啊!!

linafrny

原帖由 守柔 于 2006-3-11 13:05 发表
请参考：Option ExplicitSub Example()    Dim MyDialog As FileDialog, vrtSelectedItem As Variant    Dim myArray() As String, OldName As String, thisPath As String    Dim NewName As String    '    On Err ...

能否告诉小弟这个要如何使用啊？