查找在某个日期拍摄的所有照片

Question

如果有以下VBScript用于递归查找一组文件夹中的所有文件。我只是在网络上发现了这一点，并不能赞扬它。

fileExtension = ".jpg" 
folderPath = "C:\Pictures" 
computerName = "." 
arrFIL = Array() 

If Right(folderPath,1) = "\" Then folderPath = Left(folderPath,Len(folderPath)-1) 

Set wmiObject = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computerName & "\root\cimv2") 
Set folderObject = wmiObject.Get("Win32_Directory='" & folderPath & "'") 

EnumFolders folderObject, wmiObject, arrFIL 
strFIL = UBound(arrFIL) + 1 & " files found with extension '" & fileExtension & "':" & vbCrLf & vbCrLf 

For intFIL = 0 To UBound(arrFIL) 
    Set objFile = objFSO.GetFile(arrFIL(intFIL)) 
    strFIL = strFIL & arrFIL(intFIL) & vbCrLf 
Next 
WScript.Echo strFIL 

Sub EnumFolders(folderObject, wmiObject, arrFIL) 
    On Error Resume Next 
    Dim objSD1 
    Dim objSD2 
    Dim objFI1 
    Dim objFI2 
    Set objSD1 = wmiObject.ExecQuery("Associators of {Win32_Directory.Name='" & fold erObject.Name & "'} Where AssocClass=Win32_SubDirectory ResultRole=PartComponent") 

    For Each objSD2 in objSD1 
     EnumFolders objSD2, wmiObject, arrFIL 
    Next  
    On Error Goto 0 

    Set objFI1 = wmiObject.ExecQuery("Associators of {Win32_Directory.Name='" & folderObject.Name & "'} Where ResultClass=CIM_DataFile") 
    For Each objFI2 in objFI1 
    If Right(objFI2.Name,Len(fileExtension)) = fileExtension Then 
     intFIL = UBound(arrFIL) + 1 
      ReDim Preserve arrFIL(intFIL) 
      arrFIL(intFIL) = objFI2.Name 
     End If 
    Next 
End Sub 

我需要做的是对一堆文件夹运行此，C中：\图片，并将它返回的所有文件存放照片的拍摄日期属性是本月23日。这可能吗？我将如何实现这一目标？

感谢

Answer 1

我会使用Shell.Application对象，而不是WMI的：

Const Name  = 0 
Const DateTaken = 12 

folderPath = "C:\Pictures" 

Set re = New RegExp 
re.Pattern = "[^0-9:./ ]" 
re.Global = True 

Traverse CreateObject("Shell.Application").Namespace(folderPath) 

Sub Traverse(fldr) 
    For Each obj In fldr.Items 
    If obj.IsFolder Then 
     Traverse obj.GetFolder 
    ElseIf LCase(obj.Type) = "jpeg image" Then 
     If Day(re.Replace(fldr.GetDetailsOf(obj, DateTaken), "")) = 23 Then 
     WScript.Echo fldr.GetDetailsOf(obj, Name) 
     End If 
    End If 
    Next 
End Sub