Скрипт - Копирование файлов в определенной папке по фильтру. #225308

/* On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where (Drive = 'D:' and Path Like '%\sait\%') and Extension = 'gif'")' MsgBox "!" For Each objFile in colFiles    strCopy = "D:TempFotoAll" & objFile.FileName _        & "." & objFile.Extension    'objFile.Copy(strCopy)    MsgBox strCopy Next */ Не работает. Если сделать Path = '\sait\' тогда выводит файлы только внутри папки исключая вложенные. А нужны все. Заранее сенкс за помощь.

""Path Like '\sait\%'"" ... Но вопросик, зачем ВМИ ?

FileFyftemObject.CopyFolder и вся недолга

вот так вот! 8) FileSystemObject, а не FileFyftemObject

Задача скапировать все файлы определенного расширения из определенной папки. Показалось проще. Копирует фолдерс.

скапировать - скопировать. ЗЫ: Было бы не плохо редактировать свои сообщения.

""Path Like '\sait\%'""  не работает. Или работает. Но уж очень медленно. При этом - Drive = 'D:' and Extension = 'gif' - отрабатывает нормально и очень быстро.

Конечно, он по всем папкам шерсить будет, а может и не будет вовсе работать...

(+4) Только файлы без структуры папок.

Для простоты пользуй Shell.Application (фильтр ставится тоже) и CopyHere но есть но, надо отследить когда закончит копировать...

dir d:*.gif -s >filelist.txt может подойдет?

Path Like '%\Sait\%' and Extension = 'gif' - так отработало достаточно быстро. Причем и первоначально работало, но очень медленно. Прочитал на других форумах. Чем больше в select условий ... Тем медленне он отрабатывает для wmi ... Мдя ...