AcroExch.PDDoc以外の方法でPDFの更新日時、作成日時を取得したい。

Question

###前提・実現したいこと
汎用性を持たせたいため、AcroExch.PDDoc以外の方法でPDFファイル内に記録された更新日時、作成日時情報を取得したい。

###発生している問題・エラーメッセージ

ADOBEPDFがインストールされているPCでないとAcroExch.PDDocが実装できない。

###該当のソースコード
Dim qq As Acrobat.CAcroPDDoc
Set qq = CreateObject("AcroExch.PDDoc")
Dim myFname As String
myFname = aryFile(UBound(aryFile))
qq.Open (myFname)
ThisWorkbook.Worksheets("Sheet1").Cells(UBound(aryFile) + 9, 4).Value = Mid((qq.GetInfo("ModDate")), 3, 4) & "/" & Mid((qq.GetInfo("ModDate")), 7, 2) & "/" & Mid((qq.GetInfo("ModDate")), 9, 2) & " " & Mid((qq.GetInfo("ModDate")), 11, 2) & ":" & Mid((qq.GetInfo("ModDate")), 13, 2) & ":" & Mid((qq.GetInfo("ModDate")), 15, 2) ' 更新日時
ThisWorkbook.Worksheets("Sheet1").Cells(UBound(aryFile) + 9, 5).Value = Mid((qq.GetInfo("CreationDate")), 3, 4) & "/" & Mid((qq.GetInfo("CreationDate")), 7, 2) & "/" & Mid((qq.GetInfo("CreationDate")), 9, 2) & " " & Mid((qq.GetInfo("CreationDate")), 11, 2) & ":" & Mid((qq.GetInfo("CreationDate")), 13, 2) & ":" & Mid((qq.GetInfo("CreationDate")), 15, 2) ' 作成日時
b = qq.Close

###試したこと
参照設定でPDFに関連するチェックボックスを参照にしたが実行できなかった

###補足情報(言語/FW/ツール等のバージョンなど)
エクセル２０１６

Answer 1

FileSystemObjectのFileオブジェクトを使えばファイルの作成日時と更新日時を取得できます。

FileSystemObject
Fileオブジェクトのプロパティとメソッド

Comments

[kk2000]

回答いただきありがとうございます。私の説明が足りなくてすみません。
私も試したのですが、FileSystemObjectですと、ファイルシステムの日付、（マイコンピュータで開いてファイルのプロパティをみたとき）が確認できますが、PDFファイルとして別にPDFタブ内にAcrobatやPDF作成ツールが作成した作成日時データが読み出せないのです。
今回実現したいのがPDFファイル内に格納されているそのデータなのです。

[PineMatsu]

探してみましたがAcroExch.PDDoc以外となると見つけきりませんでした。
直接PDFをテキストファイルとして読み出すしかなさそうですね。
PDFの構造に関しては下記URLが詳しそうです。これに依るとトレイラー部分に必要なデータが有るようです。
http://www.pdf-tools.trustss.co.jp/Syntax/fileStruct.html
試しにテキストエディタでPDFを開いて「CreateDate」を検索してみたら有りました。なので、直接読み出すことも可能だとは思います。

[kk2000]

なるほど！ありがとうございます。
方法が見つかりました。