现在找到了一个批量编辑程序,它将帮助我重新控制堆积如山的图片文件。它的另一面是部分元数据在编辑中消失。我不会因为丢失高级相机设置而哭泣,但我想保留的一些东西是照片日期和相机型号。
使用以下方法可以轻松完成检索所选信息:
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace(strFolder)
Set objFolderItem = objFolder.ParseName(strFile)
... followed by...
Cells(2,iColumn).Value = objFolder.getdetailsof(objFolderItem, 12) '(12 = photo taken)*<br>
Cells(3,iColumn).Value = objFolder.getdetailsof(objFolderItem, 30) '(30 = camera model)
(...等选定的详细信息)
在文件夹循环中,结果将是一个工作表,其中包含文件名及其元数据在表中......这就是我现在所在的位置。我正在搜索,我正在搜索,我似乎唯一找到的是检索信息的不同方法,但我想知道的是如何将其放回到文件中。
提前致谢。
/尼克