vbscript - WSH スクリプトを使用した GPS メタデータ

Question

VBScript を使用して、画像のコレクションから GPS メタデータを抽出しようとしています。Shell.Application オブジェクトを使用すると、ファイルからメタデータを取得できますが、GPS 情報が含まれていません。出来ますか？私が使用しているファイルからメタデータを解析するための簡略化されたスクリプト:

<job id="main">
    <object id="objShell" progid="Shell.Application" />
    <script language="VBScript">
        Dim arrHeaders(300)
        Set objFolder = objShell.Namespace("c:\Path\To\Folder\With\One\Jpg\")
        For i = 0 to 299
            arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
        Next
        For Each strFileName in objFolder.Items
            For i = 0 to 299
                Wscript.Echo i & vbtab & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strFileName, i)
            Next
        Next
    </script>
</job>

Answer 1

Paul Grant のサイトhttp://www.paulgrant.ca/code_image_details_gps.htmlで解決策を見つけました。

とても素敵できれいなスクリプト。