Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Поиск фото снятых определённого числа 
Author Message
Monarch-LFV



PostPosted: Wed Jan 15, 2025 15:02    Post subject: Reply with quote

Andrey19
Если количество лет не сильно много, то можно также пройтись поиском с плагинами, но с несколькими полями с одной датой, но различными годами, объединенными условием ИЛИ. Ограничение - 20 полей, соответственно, можно найти все 15 января за последние 20 лет.

Добавлено спустя 2 минуты:

Почти одновременно Very Happy

Добавлено спустя 15 минут:

А еще можно использовать плагин WinscriptADV и для него написал скрипт (Explorer_Date_of_Shoot_EXIF.vbs):
Code:
' Script for WinScriptAdv content plugin
' Показывает свойства, доступные в проводнике:
'   Дата съемки День
'   Дата съемки месяц
'   Дата съемки год

On error resume next
Set objShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")

pth = FSO.GetParentFolderName(filename) ' путь к файлу
fn = FSO.GetFileName(filename) ' Имя файла

Set objFolder = objShell.Namespace(pth)
Set objFile = objFolder.ParseName(fn)

DateS = objFolder.GetDetailsOf(objFile, 12)

arrTime = Split(DateS, ".")

content = arrTime(0)
content1 = arrTime(1)
content2 = mid(arrTime(2), 2, 4)

В options.ini файле:
Code:
[Script]
ActiveScripts={Другие ваши скрипты}|Explorer_Date_of_Shoot_EXIF

[Explorer_Date_of_Shoot_EXIF]
; Показывает свойства, доступные в проводнике
Script=Explorer_Date_of_Shoot_EXIF.vbs
content =Дата_съемки_День
content1=Дата_съемки_Месяц
content2=Дата_съемки_Год
extensions=jpg|jpeg|jpe|heic|mov
FoldersPaths=1

В поиске выбрать поиск с плагинами, выбрать 2 условия: день и месяц и объединить их условием "И". Найдутся все варианты.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group