3

我正在尝试使用 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>
4

1 回答 1

0

我在 Paul Grant 的网站http://www.paulgrant.ca/code_image_details_gps.html上找到了解决方案。

非常漂亮和干净的脚本。

于 2013-04-29T09:21:23.093 回答