ExcelのVBAを使用した.PDF（ファイル）の拡張ファイル属性

Question

私は以下に何が間違っているのか理解しようとしています... Bassicaly I一連のファイルをExcelシートに並べて表示しています各ファイルのタグを追加します。 ".BuiltinDocumentProperties（" Keywords "）。Value"を使用しているので、これはオフィスファイルの問題ではありません。

ただし、Pdfファイルの場合は、 拡張プロパティへのアクセスに「.GetDetailsof（）」を使用するのは簡単です。私が使用したときに一方

うーん...私は以下の取得何らかの理由で、

sValue = oDir.GetDetailsOf(oDir.Items, 18) 

'Returns the "Date Modified" 

ため

sValue = objFile.DateLastModified 
'Returns the actual Value e.g. 09/11/2012 07:01:48 

任意のコメントや提案がはるかに理解されるであろう。

P.S.1拡張ファイル属性に関連するLinkはすでに読んでいます。 私は何かが欠けていないことを願っています。

P.S.2は私がFile Meta Data

Answer 1

を使用してPDFファイルに値を追加することができるように、ここではそれらにアクセスするどのような性質が利用可能であり、方法の概要を説明し、いくつかのコードです。適応

：http://windowssecrets.com/forums/showthread.php/157834-VBA-FileSystemObject-Properties-Dimensions-Size-and-Vertical-resolution

Sub GetDetails() 
    Dim oShell As Object 
    Dim oFile As Object 
    Dim oFldr As Object 
    Dim lRow As Long 
    Dim iCol As Integer 
    Dim vArray As Variant 
    vArray = Array(0, 1, 3, 4, 18) 


    Set oShell = CreateObject("Shell.Application") 
    lRow = 1 
    With Application.FileDialog(msoFileDialogFolderPicker) 
    .Title = "Select the Folder..." 
    If .Show Then 
     Set oFldr = oShell.Namespace(.SelectedItems(1)) 
     With oFldr 
     For iCol = 0 To 286 
      Cells(lRow, iCol + 1) = .getdetailsof(.items, iCol) 
     Next iCol 
     For Each oFile In .items 
      lRow = lRow + 1 
      For iCol = 0 To 286 
      Cells(lRow, iCol + 1) = .getdetailsof(oFile, iCol) 
      Next iCol 
     Next oFile 
     End With 
    End If 
    End With 
End Sub