☰

복구된 파일 이름 바꾸기를 위한 메타데이터 추출

tag-icon • tag-icon script metadata extract file-recovery
복구된 파일 이름 바꾸기를 위한 메타데이터 추출

최근에 photorec이라는 도구를 사용하여 삭제된 많은 파일을 복구했습니다.http://www.cgsecurity.org/wiki/PhotoRec

훌륭한 생명의 은인. 유일한 문제는 복구된 파일의 이름이 이 프로그램이 생성하는 임의의 문자열로 대체된다는 것입니다. (사용자가 파일을 삭제하여 파일 이름과 디렉터리 구조가 손실되었습니다.)

그래서 photorecsorter라는 다른 프로그램을 실행하여 복구된 파일을 파일 확장자(한 폴더에서는 pdf, 다른 폴더에서는 ppt 등)에 따라 폴더로 정렬했습니다. http://buildbackwards.com/projects/photorec-sorter/

약 100,000개 이상의 파일을 복구했기 때문에 사용자에게 파일을 열고 콘텐츠를 살펴보고 원하는 것을 찾도록 요청할 수 없습니다. 나는 단어 문서 파일 메타데이터(헤더)가 해당 파일의 이름을 바꾸는 데 사용할 수 있는 정보의 두 가지 주요 요소, 즉 단어 문서의 제목과 마지막으로 수정된 날짜를 검색하는 데 도움이 될 수 있다는 것을 알고 있습니다. Word 문서에 대해 이 작업을 수행하는 방법을 알게 되면 다른 Office 확장 및 PDF에 대해서도 직접 수행할 수 있을 것입니다. 온라인에서 몇 가지 도구를 찾았지만 시도하기 전에 여기에서 전문가가 제안할 수 있는 내용을 확인하고 싶었습니다.

감사해요

답변1

다음과 같은 VBS(VBScript) 파일은 최소한 Word 문서에 도움이 됩니다.

Option Explicit

Dim objWord, objDoc

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.DisplayAlerts = False
objWord.Documents.Open "C:\MyDoc.docx", False, True ' path, confirmconversions, readonly
Set objDoc = objWord.ActiveDocument

MsgBox "Title: """ & objDoc.BuiltInDocumentProperties("Title") & """"
MsgBox "Subject: """ & objDoc.BuiltInDocumentProperties("Subject") & """"
MsgBox "Author: """ & objDoc.BuiltInDocumentProperties("Author") & """"
MsgBox "Creation Date: """ & objDoc.BuiltInDocumentProperties("Creation Date") & """"
MsgBox "Last Save Time: """ & objDoc.BuiltInDocumentProperties("Last Save Time") & """"

objWord.Quit 0 ' wdDoNotSaveChanges
Set objWord = Nothing
Set objDoc = Nothing

당신이 사용할 수있는파일시스템객체디렉토리의 모든 DOC/DOCX 파일을 반복하고이름 바꾸기반환된 속성 문자열을 기반으로 합니다.

Excel 또는 PowerPoint 파일의 경우 다음을 사용하세요.Excel.응용 프로그램또는PowerPoint.응용 프로그램문서 개체를 만들 때. 막히면 인터넷에서 관련 Office 자동화 VBScript 튜토리얼을 검색해 보세요.

모든 파일 형식에 대한 메타데이터를 검색하는 일반적인 방법은 없으므로 PDF와 같은 다른 형식에는 완전히 다른 솔루션이 필요합니다. 도움이 필요하면 인터넷을 검색하거나 새 질문을 게시하는 것이 좋습니다.

관련 정보