批量导出文件名拍摄日期

① 如何用EXCEL VBA批量提取JPG文件日期时间信息到表格中

使用这个函数吧，可以得到文件的 创建时间 或 最后修改时间：
-------------------------
Function iFileDate(iPh, n)
' 参数说明：
' iph 文件路径。
' n 时间类型。 1 为 创建时间；2 为 最后修改时间
If Dir(iPh) = "" Then Exit Function
Dim fs: Set fs = CreateObject("Scripting.FileSystemObject")
Dim f: Set f = fs.GetFile(iPh)
If n = 1 Then iFileDate = f.DateCreated
If n = 2 Then iFileDate = f.DateLastModified
End Function
---------------------

具体使用方法举例：
---------------
Sub iTest()
Dim iPh, iDate1, iDate2
iPh = "G:\D Hi\VBA 文件操作\a.xls"
If Dir(iPh) = "" Then
MsgBox "下面的文件不存在：" & vbCrLf & iPh, vbCritical
Exit Sub
End If
iDate1 = "创建时间:" & vbTab & iFileDate(iPh, 1)
iDate2 = "最后修改时间:" & vbTab & iFileDate(iPh, 2)
MsgBox iPh & vbCrLf & iDate1 & vbCrLf & iDate2
End Sub

② 文件名，文件创建时间批量输出至文本或excel

可以利用VBA写代码来实现，将文件名和文件修改时间批量输出至Excel中。

操作系统：win10；软件版本：Office2010

方法如下：

1.Alt+F11，输入代码如下：

代码注释已给出

Sub main()

ff = Dir("D:*.*") '遍历D盘根目录下所有文件

Do While ff <> "" '如果存在文件

k = k + 1 '依次递增存储文件和时间

Cells(k, 1) = ff '第一列存文件名

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("D:" & ff)

Cells(k, 2) = f.DateCreated '第二列存文件修改时间

ff = Dir

Loop

End Sub

③ 如何在 Mac / OS X 下批量修改相片的文件名为拍摄时间

OS X 下面有个内置的命令叫 sips ，可以提取拍摄时间。输出如下所示

$ sips -g creation /Users/thunder/Downloads/*.JPG
/Users/thunder/Downloads/IMG_0491.JPG
creation: 2013:02:13 14:23:43
/Users/thunder/Downloads/IMG_0594.JPG