v7: ФС.НайтиСледующийФайл - как исключить заход в подпапку? #592351

Понимаю, что пятница. конец рабочего дня. Перебираю папку с файлами методом ФС.НайтиПервыйФайл и ФС.НайтиСледующийФайл. Довольно удобная штука, т.к. рекурсивно заходит в подпапки и читает все файлы оттуда. Замер производительности ругается именно на процедуру поиска файлов. Думал выбрать все файлы и отсеивать только *.ert, но приросту никакого - 1С затрачиывает дополнительное время на сравнение условий. Как исключить эту конкретную подпапку, в которой более 20'000 файлов и там явно нет *.ert?

продолжить ?

Храни ерт в другом месте

dir'ом в файл, файл разбирать :-)

Не пойдёт. Надо найти все обработки во всех подпапках рекурсивно. Но тут попадается та папка с ненужными мне файлами, ФС её читает и всё. Это особенность движка ФС или каким способом еще можно?

О! Эврика! Может WSH задействовать?

Вроде как нашел способ. Теперь вместо сообщения надо файл в список совать. А как - тупонька не соображает: On Error Resume Next Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootCIMV2") If Err.Number <> 0 Then    WScript.Echo Err.Number & ": " & Err.Description For Each objFile In colFiles Next WScript.Echo "Всего файлов: " & colFiles.Count

Два прохода - первым собираешь папки, вторым файлы

Так и есть. Но ФС.НайтиСледующийФайл лопатит опять весь диск и в том числе ненужную папку. К WSH руки пока не дотянулись, но он сработал значительно быстрее.

гонишь. НайтиСледующийФайл вызывает системную функцию.

Замером производительности замерял.

У меня 112 секунд процедура поиска папок занимает и 146 секунд складирование файлов:

потом проход по списку с помощью ФС.НайтиПервыйФайл(Каталог+"*.ert");

Shell.Application + Filter

Вот про этот самый Shell.Application  рою.

О! dir /AD /S /B что-то прояснило

For Each f in d.Files ;перебираем файлы Next For Each p In d.SubFolders ;перебираем вложенные директории Next Что касается работы с директорией, где много файлов, то любая системная функция при пролистывании или выводит содержимое всей директории сразу или при каждом вызове делает перебор заново, чтобы выбрать следующий по номеру файл.

Вот мне-то как раз и надо тут папку с многофайлами пропустить. Megj в неё не заходить. Я согласен в первый раз прочитать все подпапки, составить их список и потом заходить в них. Пример: КорневаяПапка + Подпапка1 + Подпапка3 + Подпапка4 --- вот эту надо пропускать + Подпапка5 Составили список файлов, потом в каждую кроме 4-й заходим и читаем список вложенных файлов.

Я составляю список подпапок, пропуская Подпапку4, потом по списку иду и рекурсивно создаю список файлов именно этих подпапок. Таким образом будет читаться содержимое только "Правильные" подпапки, а нехоршка пропускается.

если возможно, именовать папки так, что бы понятно было где искать, а что пропускать.

а что VbScript.RegExp не поможет отличить Подпапка4 от всех остальных. Другое дело, что в директории с внешними формами хранить ещё кучу всего явно нехорошо.

КомандаСистемы - dir - скинуть в какой надо файл в каком надо формате и пропарсить...

Если может, то как? Я вот пока еще не нашел способ.

Хороший вариант, был немного выше, оставил на закуску.

ФС.АтрибутыФайла(<?>,,,,,,); не подходит?

можешь взять сразу готовый список файлов:

Атрибуты есть, я их читаю в первом проходе, когда собираю каталоги. Но беда, что ФС.НайтиСледующийФайл ищет всё. Так что самы быстрый вариант поперебору в парсинге dir

так ?

Еще не рыл туда. Наверно, так. Спасибо. Сейчас приоритет задачи сменили, проверить пока не смогу, но на заметочку взял.

Нашел еще один скрипт, который просматривает указанную папку и создаёт лог с именами файлов '*--------------------------------------------- '* Скрипт получения списка файлов '*--------------------------------------------- '* Programming by VerSys, 2008 '********************************************** Option Explicit ' 'Переменные и константы Public strPath      'Патч текущих диска, папки, подпапки Public strSeparator 'Строка-разделитель списка Public strSpace     'Строка с заданным количеством пробелов Public strBuffer    'Строка-накопитель сведений о папках, файлах Dim strFileName     'Имя файла отчета Const strHead = "Выберите диск или папку:" ' '-------------------------------------------------------------- 'Формируем диалоговое окно "Обзор папок" Set objShell = CreateObject("Shell.Application") 'Объект Shell     Set objDialogFolder = objShell.Namespace(&H11&)  'Name_Space = "Мой компьютер", Set objDialogFolderItem = objDialogFolder.Self   'и устанавливаем по умолчанию в диал.окне     strPath = objDialogFolderItem.Path ' 'Выводим диалоговое окно "Обзор папок" Set objFolder = objShell.BrowseForFolder(0,strHead,0,strPath) ' 'Если ничего не выбрано - завершаем скрипт       If objFolder Is Nothing Then End If ' 'Если пользователь выбрал диск или папку: ''получаем патч из диалога ' ''создаем File System Object  Set objFSO = CreateObject("Scripting.FileSystemObject") ' ''проверяем доступность указанного ресурса If objFSO.FolderExists(strPath) = False Then ' ''вызываем функцию прохода по каталогам и файлам  dhGetListFolderFile(strPath) ' ''Создаем файл отчета '''Формируем имя файла отчета как строка патча с заменой недопустимых символов    strFileName = strFileName & ".txt" '''Результат пишем в файл ' 'Сообщаем о создании отчета ' '-------------------------------------------------------------- ' FUNCTION'S Function dhGetListFolderFile(strFolderName) 'Функция прохода по каталогам и файлам Dim dFolder, dFile, dSubFolder   'получаем патч каталога    Set dFolder = objFSO.GetFolder(strFolderName)    'проходим файлы текущего каталога        strBuffer = strBuffer & strFolderName & " <DIR>" & vbNewLine    For Each dFile In dFolder.Files        strBuffer = strBuffer & strSeparator & vbNewLine    'проходим рекурсивно по всем подкаталогам    For Each dSubFolder In dFolder.SubFolders        dhGetListFolderFile(dSubFolder.Path)    Next End Function