擷取JPG的拍攝時間 - Excel程式區

[發問] 擷取JPG的拍攝時間

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2016-10-11 18:24 | 顯示全部帖子

回復 1# modelcrazyer
網路上的範例改的，參考看看。

Sub getDetailsOfFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim myShl As New Shell
Dim curFolder As Folder
Dim theItm As FolderItem
Dim Fn As Variant
Dim theTitle As String
Dim outStr As String
tarPath = "C:\Temp"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(tarPath)
Set curFolder = myShl.Namespace(tarPath)
For Each objFile In objFolder.Files
If Right(objFile.Name, 3) = "JPG" Or Right(objFile.Name, 3) = "jpg" Then
With curFolder
fName = objFile.Name
theTitle = .GetDetailsOf(fName, 12)
If .GetDetailsOf(.Items.Item(fName), 12) <> "" Then
outStr = fName & vbTab & theTitle & ": " & vbTab & .GetDetailsOf(.Items.Item(fName), 12)
Debug.Print outStr
End If
End With
End If
Next objFile
Set myShl = Nothing
End Sub

複製代碼

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-10-12 10:04 | 顯示全部帖子

回復 3# modelcrazyer
如果只是要取得資訊，將print出來的資料複製到筆記本裡，把?取代掉應該就可以了。

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。