批量導出文件名拍攝日期

① 如何用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