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

modelcrazyer

請問各位大大:
我想用Excel擷取出"C:\temp"中所有JPG檔拍攝的時間，請問該從哪裡下手
謝謝!

zyzzyva

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

modelcrazyer

非常謝謝!!終於有個方向了!!
可惜輸出的結果是拍攝日期:?2016/?3/?26
再請問怎麼把問號去除

zyzzyva

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

1. Sub getDetailsOfFile()
   
2. Dim objFSO As Object
   
3. Dim objFolder As Object
   
4. Dim objFile As Object
   
5. Dim myShl As New Shell
   
6. Dim curFolder As Folder
   
7. Dim theItm As FolderItem
   
8. Dim Fn As Variant
   
9. Dim theTitle As String
   
10. Dim outStr As String
    
11. 
    
12.     tarPath = "C:\Temp"
    
13.     Set objFSO = CreateObject("Scripting.FileSystemObject")
    
14.     Set objFolder = objFSO.GetFolder(tarPath)
    
15.     Set curFolder = myShl.Namespace(tarPath)
    
16.     For Each objFile In objFolder.Files
    
17.         If Right(objFile.Name, 3) = "JPG" Or Right(objFile.Name, 3) = "jpg" Then
    
18.             With curFolder
    
19.                 fName = objFile.Name
    
20.                 theTitle = .GetDetailsOf(fName, 12)
    
21.                 If .GetDetailsOf(.Items.Item(fName), 12) <> "" Then
    
22.                     outStr = fName & vbTab & theTitle & ": " & vbTab & .GetDetailsOf(.Items.Item(fName), 12)
    
23.                     Debug.Print outStr
    
24.                 End If
    
25.             End With
    
26.         End If
    
27.     Next objFile
    
28. 
    
29.     Set myShl = Nothing
    
30. 
    
31. End Sub

複製代碼