麻辣家族討論版版 - Powered by Discuz! Board

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

複製代碼