[Iska]

Например, так:

читать дальше »

(для одной папки!, без вложенных)

Код:

Option Explicit

Const ForWriting = 2

Dim objShell
Dim objFolder
Dim objFolderItem

Dim objFSO
Dim objTS


Set objShell = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\My Pictures")

If Not objFolder Is Nothing Then
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    Set objTS = objFSO.OpenTextFile("c:\ListOfFiles.txt", ForWriting, True)
    
    For Each objFolderItem In objFolder.Items
        If objFolder.GetDetailsOf(objFolderItem, 24) = "Canon PowerShot S2 IS" Then
            objTS.WriteLine objFolderItem.Path
        End If
    Next
    
    objTS.Close
    
    Set objTS         = Nothing
    Set objFSO        = Nothing
    
    Set objFolderItem = Nothing
    Set objFolder     = Nothing
End If

Set objShell = Nothing

WScript.Quit 0

[NiOl]

Iska, начинаю потихоньку уважать vbs, (хотя все равно еще не готов повернуться к нему лицом) не знал, что винда сама может анализировать EXIF/IPTC...

"Canon PowerShot S2 IS" »

- помню была такая у моего друга, очень хорошая машинка!


из батника я пользую "ExifTool" (Phil Harvey)

пример использования с подкаталогами:
exiftool.exe -fast -S -r -Model *.\ - получаете просто список файлов и соответсвующую модель, если та указана, нужное занчение копируете в батник:

Код:

@Echo off
setlocal EnableExtensions
Set Camera=DiMAGE Z2
Set Tag=.&Set File=.
for /f "tokens=1,* delims=:" %%A in ('exiftool.exe -fast -S -r -Model .\') do call :GetModel "%%A" "%%B"
exit
:GetModel
set Tag=%~1
if "%Tag:~0,9%"=="======== " set File=%Tag:~9%
if "%Tag%"=="Model" if %2==" %Camera%" Echo %File:/=\%
exit /b

[UmbrellaMegaHack]

Код: Option Explicit Const ForWriting = 2 Dim objShell Dim objFolder Dim objFolderItem Dim objFSO Dim objTS Set objShell = WScript.CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("C:\My Pictures") If Not objFolder Is Nothing Then Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile("c:\ListOfFiles.txt", ForWriting, True) For Each objFolderItem In objFolder.Items If objFolder.GetDetailsOf(objFolderItem, 24) = "Canon PowerShot S2 IS" Then objTS.WriteLine objFolderItem.Path End If Next objTS.Close Set objTS = Nothing Set objFSO = Nothing Set objFolderItem = Nothing Set objFolder = Nothing End If Set objShell = WScript.CreateObject("Shell.Application") »

можно пример скрипта с подкатологами пожалуйста

[Iska]

UmbrellaMegaHack, примерно так:

читать дальше »

Код:

Option Explicit

Const ForWriting = 2

Dim objShell
Dim objFolder
Dim objFolderItem

Dim objFSO
Dim objTS


Set objShell  = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\My Pictures")

If Not objFolder Is Nothing Then
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    Set objTS  = objFSO.OpenTextFile("c:\ListOfFiles.txt", ForWriting, True)
    
    ScanSubFolders objFolder
    
    objTS.Close
    
    Set objTS     = Nothing
    Set objFSO    = Nothing
    
    Set objFolder = Nothing
End If

Set objShell = Nothing

WScript.Quit 0
'=======================================================

'=======================================================
Sub ScanSubFolders(objFolder)
    Dim objSubFolder
    Dim objFolderItem
    
    WScript.Echo "[" & objFolder.Self.Path & "]"
    
    For Each objFolderItem In objFolder.Items
        If objFolderItem.IsFolder Then
            Set objSubFolder = objFolderItem.GetFolder
            
            If Not objSubFolder Is Nothing Then
                ScanSubFolders objSubFolder
            End If
        Else
            If objFolder.GetDetailsOf(objFolderItem, 24) = "Canon PowerShot S2 IS" Then
                objTS.WriteLine objFolderItem.Path
            End If
        End If
    Next
End Sub
'=======================================================

P.S. В предыдущем скрипте исправлена очистка объектной переменной «objShell».

читать дальше »

С:

Код:

Set objShell = WScript.CreateObject("Shell.Application")

на:

Код:

Set objShell = Nothing

[Vadikan]

А почему поиск должен быть скрытый? В Windows 7 все на виду



Ну и даже в ХР можно поставить Desktop Search.

Сорри за оффтоп

[UmbrellaMegaHack]

Меня интересует скрытая автоматика)