[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