Note that there are some explanatory texts on larger screens.

plurals
  1. POFind all photographs taken on a certain date
    primarykey
    data
    text
    <p>If have the following VBScript for recursively finding all the files in a set of folders. I simply found this on the web somewhere and can't take credit for it.</p> <pre><code>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}!\\" &amp; computerName &amp; "\root\cimv2") Set folderObject = wmiObject.Get("Win32_Directory='" &amp; folderPath &amp; "'") EnumFolders folderObject, wmiObject, arrFIL strFIL = UBound(arrFIL) + 1 &amp; " files found with extension '" &amp; fileExtension &amp; "':" &amp; vbCrLf &amp; vbCrLf For intFIL = 0 To UBound(arrFIL) Set objFile = objFSO.GetFile(arrFIL(intFIL)) strFIL = strFIL &amp; arrFIL(intFIL) &amp; 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='" &amp; fold erObject.Name &amp; "'} 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='" &amp; folderObject.Name &amp; "'} 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 </code></pre> <p>What I need to do is run this against a bunch of folders, within C:\Pictures, and have it return all files where the Date Taken property of the photo is the 23rd of the month. Is this possible? How would I achieve this?</p> <p>Thanks</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload