Сбор данных разных файлов, рассортированных по трем папкам

@zauf · Регистрация: 04.02.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Очень прошу всех помочь
существует одна довольно заковыристая задачка.
решить которую простыми формулами для меня не представляется возможным
в общем существует 59 файлов разложенных в 3 папки
-region (49 шт)
-city (8 шт)
-direction (2 шт)
задача не разовая и названия файлов каждый раз разные

Необходимо считать данные из всех этих файлов, склеить в 1 таблицу исполняющем файле.

В идеале считать данные по следующему диапазонам: с А19 по самую нижняя заполненная ячейку столбце G, значения в этом столбце могут принимать значение "0"

и просто шикарно было бы если бы он дописывал 2 столбца один с названием файла из которого прочитал таблицу и второй это название папки из которой был взят файл.

заранее благодарю всех кто откликнется... очень прошу помочь!!!

@Alex77755 · 04.02.2011, 16:00

Ну а в чём собственно вопрос?
Как перебрать папки и файлы в них? Или как открыть файл. Или как определить последнюю занятую строку?
Если надо просто сделать макрос - можно записать макрорекордером.
Если вам нужен готовый - обращайтесь на мыло. (нужны будут образцы файлов)

@zauf · 04.02.2011, 17:23 **[ТС]**

дело в том что я сам занимался программированием занимался когда-то очень давно... общее представление имею... но сделать что-то цельное мозгов уже не хватает... но отдельные части кода я видел на форуме.. а вот с объединением вышли напряги...
по этому и прошу сразу целиком.

@mc-black · 04.02.2011, 18:05

Ну, для того, чтобы полноценно сделать, надо описать подробней. Либо если ты все-таки способен на что-то могу накидать кусков кода, с помощью которых ты склеишь их в одно целое. Например, могу бросить кусок, который поочередно откроет-закроет все файлы в трех заранее поименованных подпапках, которые будут находиться, скажем, в одной директории с итоговой книгой (в которой есть макрос). Начать можешь вот с этого:

Visual Basic

Option Explicit
 
' Макрос для запуска всей программы
Sub Starter()
    Call EnumWorkboorks(ThisWorkbook.Path & "\region\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\city\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\direction\")
End Sub
 
' Процедура работы с директорией файлов
Private Sub EnumWorkboorks(MyPath As String)
    Dim MyName As String, wbk As Workbook
    
    MyName = Dir(MyPath & "*.xls", vbNormal)
    Do While MyName <> ""
        If (GetAttr(MyPath & MyName) And vbNormal) = vbNormal Then
            If MyName Like "*.xls" Then
                Set wbk = Workbooks.Open(MyPath & MyName)
                
                Call EnumWorksheets(wbk)
                wbk.Close
                
                Set wbk = Nothing
            End If
        End If
        MyName = Dir
    Loop
End Sub
 
' Процедура работы с книгой
Private Sub EnumWorksheets(src As Workbook)
    ' Здесь действия с открытой рабочей книгой, например перебор всех листов в книге, если требуется
End Sub

@zauf · 06.02.2011, 12:56 **[ТС]**

аналогичный макрос я уже находил
даже находил макрос который сшивал все листы из всех этих файлов в одну книгу
проблема в том, что я не смог скомбинировать... это с тем что бы брались данные начиная с конкретной ячейки и по расчетную (самую нижнюю заполненную в столбце G)

@mc-black · 06.02.2011, 22:44

Если не сможете доделать до конца, опишите тогда более четко задачу, потому что в данной постановке вопроса могут быть разные решения как видения Вашей задачи. Например, уточните:
1. Из каких листов в найденных книгах брать данные (из первого, из n-го, из последнего, из каждого листа, из листа с каким-то конкретным именем, из активного в данный момент листа и т.п.)
2. В каком порядке предполагается объединять скопированные блоки файлов (сверху-вниз, справа налево, в отдельном листе каждый блок данных или как-то еще.
3. Нужно ли сохранять форматирование, формулы скопированных ячеек?
4. Нужно ли в указанных папках книги отсеивать по какой-то маске.
Это не все доп. вопросы, а часть их навскидку. Их обязательно бы Вам задали, если бы делали работу на заказ. А вы хотите, как я понимаю, это даром, так-что советую избавить ваших помощников от рутины, иначе никому не захочется Вам помогать.

@zauf · 07.02.2011, 08:54 **[ТС]**

Сообщение от mc-black

1. Из каких листов в найденных книгах брать данные (из первого, из n-го, из последнего, из каждого листа, из листа с каким-то конкретным именем, из активного в данный момент листа и т.п.)
2. В каком порядке предполагается объединять скопированные блоки файлов (сверху-вниз, справа налево, в отдельном листе каждый блок данных или как-то еще.
3. Нужно ли сохранять форматирование, формулы скопированных ячеек?
4. Нужно ли в указанных папках книги отсеивать по какой-то маске.

1.данные надо брать из листа с название "сборы" он стоит первым
2.объединять сверху вниз порядок файлов не важен главное полнота сбора данных
в каждом файле на первой вкладке надо взять диапазонс начиная с А19 по самую нижнюю заполненную ячейку в столбце G, значения в этом столбце могут принимать значение "0"
3.форматирование можно не сохранять, формул там нет.
4. маски на файлы тоже отсутствуют в этих папках не будет лежать лишних файлов

@dzug · 07.02.2011, 13:14

zauf

Выложите несколько таких файлов и Вы быстрее получите ответ.

@Alex77755 · 07.02.2011, 13:56

самую нижнюю заполненную в столбце

Можно узнать несколькими способами. Например так:

Visual Basic

1	LR = Cells(Rows.Count, 1).End(xlUp).Row

@mc-black · 08.02.2011, 13:31

Так-то значительно лучше. Вот этот код по идее должен работать:

Visual Basic

Option Explicit
Dim k As Long
 
Sub Starter()
    k = 19
    Call EnumWorkboorks(ThisWorkbook.Path & "\region\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\city\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\direction\")
End Sub
 
Private Sub EnumWorkboorks(MyPath As String)
    Dim MyName As String, wbk As Workbook
    
    MyName = Dir(MyPath & "*.xls", vbNormal)
    Do While MyName <> ""
        If (GetAttr(MyPath & MyName) And vbNormal) = vbNormal Then
            If MyName Like "*.xls" Then
                Set wbk = Workbooks.Open(MyPath & MyName)
                
                Call EnumWorksheets(wbk)
                wbk.Close
                
                Set wbk = Nothing
            End If
        End If
        MyName = Dir
    Loop
End Sub
 
Private Sub EnumWorksheets(wbk As Workbook)
    Dim src As Worksheet, dst As Worksheet, m As Long
    
    Set src = wbk.Worksheets(1)
    Set dst = ThisWorkbook.Worksheets(1)
    
    m = src.Cells(19, 7).End(xlDown).Row
    src.Range(src.Cells(19, 1), src.Cells(m, 7)).Copy
    dst.Cells(k, 1).PasteSpecial xlPasteValues
    src.Range(src.Cells(19, 8), src.Cells(m, 8)).Value = wbk.Name
    src.Range(src.Cells(19, 9), src.Cells(m, 9)).Value = wbk.Path
    k = k + (m - 18)
    
    Set src = Nothing
    Set dst = Nothing
End Sub

Тестируйте на данных, пишите (с подробным описанием ошибки), если не будет работать или будет работать неправильно.

@zauf · 10.02.2011, 11:24 **[ТС]**

протестировал... зависает на 3-м файле...
и еси я не ошибаюсь просто заменяет даннымииз нового файла старые данные, а надо дописывать начиная с ячейки следующей за последней заполненной в столбце А ... могу нарисовать принцип в схеме.

есть ещё одно маленькое замечание
вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием (данные файлов из папки region во вкладку с названием region из city в сшен direction в direction)

вставку надо начинать с ячейки А2 соответствующего листа

@Alex77755 · 10.02.2011, 11:49

zauf,
Те бе же уже сказали:

Выложите несколько таких файлов и Вы быстрее получите ответ.

Здесь же не общество телепатов любителей.

вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием (данные файлов из папки region во вкладку с названием region из city в сшен direction в direction

Теперь желающие помочь должны разгадать ребус:
1. Под каким "соответствующим названием" - чему должен соответствовать.
2. Что ты понимаешь под понятием "вкладка"
3. Что такое "сшен".
И только после этого что-то тебе подсказать.
А тебе просто лень сделать один раз образец вручную, запаковать его и прицепить

@zauf · 10.02.2011, 12:20 **[ТС]**

Alex77755

внимательно читаем предложение =)))))

вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием
дальше в скобках идёт объяснение:
данные файлов из папки region во вкладку с названием region
из city в сшен (согласен опечатался ctrl не сработал =)))) но не трудно догадаться что я имел в виду city ведь рядом присутствуют два очень похожих примера

direction в direction

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

для всех желающих помочь сейчас выложу файлы

Благодарю за понимание и проявленное желание помочь =)

@dzug · 10.02.2011, 12:29

Сообщение от zauf

внимательно читаем предложение =))

Если это предложение, то коммерческое, и надо писать цену.. Если хотите получить помощь бесплатно - то это должна быть просьба.???

@Alex77755 · 10.02.2011, 12:46

вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием

Ну с этим более менее понятно.

данные файлов из папки region во вкладку с названием region

Я не понимаю, что такое "вкладка" с названием region?
Сделай образец, что должно получиться. Хоть посмотрю, что такое "вкладка" в твоём понимании

@zauf · 10.02.2011, 13:36 **[ТС]**

Сообщение от Alex77755

Ну с этим более менее понятно.

Я не понимаю, что такое "вкладка" с названием region?
Сделай образец, что должно получиться. Хоть посмотрю, что такое "вкладка" в твоём понимании

прошу прощения за неверный термин... лист в книге...под названием 'region'

@zauf · 10.02.2011, 13:48 **[ТС]**

вот пример файла collector.xls

@zauf · 10.02.2011, 13:56 **[ТС]**

Сообщение от dzug

Если это предложение, то коммерческое, и надо писать цену.. Если хотите получить помощь бесплатно - то это должна быть просьба.???

Сударь, не выхватывайте фразы из контекста в том сообщении из которого вы взяли оно было совокупностью слов, и выражающей сообщение, а не тем что вам показалось

приношу свои извинения за то что ввел вас в заблуждение

@mc-black · 10.02.2011, 15:18

Если я правильно понял, что Вам надо было, то код должен быть такой:

Visual Basic

Option Explicit
Dim k As Long
 
' Макрос для запуска всей программы
Sub Starter()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    k = 19
    Call EnumWorkboorks(ThisWorkbook.Path & "\region\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\city\")
    Call EnumWorkboorks(ThisWorkbook.Path & "\direction\")
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub
 
' Процедура работы с директорией файлов
Private Sub EnumWorkboorks(MyPath As String)
    Dim MyName As String, wbk As Workbook
    
    MyName = Dir(MyPath & "*.xls", vbNormal)
    Do While MyName <> ""
        If (GetAttr(MyPath & MyName) And vbNormal) = vbNormal Then
            If MyName Like "*.xls" Then
                Set wbk = Workbooks.Open(MyPath & MyName)
                
                Call EnumWorksheets(wbk)
                wbk.Close False
                
                Set wbk = Nothing
            End If
        End If
        MyName = Dir
    Loop
End Sub
 
' Процедура работы с книгой и рабочими листами
Private Sub EnumWorksheets(wbk As Workbook)
    Dim src As Worksheet, dst As Worksheet, m As Long
    
    Set src = wbk.Worksheets(1)
    Set dst = ThisWorkbook.Worksheets(1)
    
    m = src.Cells(19, 7).End(xlDown).Row
    src.Range(src.Cells(19, 1), src.Cells(m, 7)).Copy
    dst.Cells(k, 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    dst.Range(dst.Cells(k, 8), dst.Cells(k + (m - 18), 8)).Value = wbk.Name
    dst.Range(dst.Cells(k, 9), dst.Cells(k + (m - 18), 9)).Value = wbk.Path
    k = k + (m - 18)
    
    Set src = Nothing
    Set dst = Nothing
End Sub

Исправил всего лишь 2 строчки - макрос не вис, а запрашивал, сохранить ли изменения в открываемом файле и опустошить ли буфер обмена по закрытии файла. Оба неудобства убрал. Плюс поставил малюсенькую оптимизацию, чтобы таблицы на экране не мельтешили.

Задача не из самых сложных, но видно, что применение коммерческое (банк?). Мне раньше за подобную работу платили. Причем не разово, а в течение периода, за который я сделал кучу изменений требований заказчика по добавлению функций и автоматизации всего, что только можно. Ну ладно, я не жалко. Хотя если будет мучить совесть - могу скинуть мои платежные реквизиты )))) Платная поддержка имеет преимущества: не надо ждать - все получаете быстро и все ошибки исправляются по первому требованию, причем безвозмоздно, когда есть место ошибки разработчика.

Да, и исправил заодно 1 баг - теперь имя файла и папка пишутся в последние 2 колонки.

@zauf · 10.02.2011, 16:04 **[ТС]**

Супер =))) всё круто, но когда этот алгоритм натыкается на файл в котором ничего нет... он выдаёт ошибку =))) имя папки можно писать без пути по которому она находится. просто название и всё

Новые блоги и статьи
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .
Как сделать UPDATE из SELECT в SQL Server hw_wired 24.01.2025 В современных системах управления базами данных операции обновления и выборки данных являются фундаментальными инструментами для работы с информацией. SQL Server предоставляет мощные команды UPDATE и. . .	Как вставить элемент в массив на указанный индекс в JavaScript hw_wired 24.01.2025 Массивы являются одной из фундаментальных структур данных в JavaScript, предоставляющей разработчикам мощный инструмент для хранения и управления упорядоченными наборами данных. Они позволяют хранить. . .	Чем отличаются HashMap и Hashtable в Java hw_wired 24.01.2025 В мире разработки на Java существует множество инструментов для работы с коллекциями данных, и среди них особое место занимают структуры данных для хранения пар ключ-значение. HashMap и Hashtable. . .	Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
		1
	Сбор данных разных файлов, рассортированных по трем папкам 04.02.2011, 15:23. Показов 7663. Ответов 20 Метки нет (Все метки) Доброго времени суток! Очень прошу всех помочь существует одна довольно заковыристая задачка. решить которую простыми формулами для меня не представляется возможным в общем существует 59 файлов разложенных в 3 папки -region (49 шт) -city (8 шт) -direction (2 шт) задача не разовая и названия файлов каждый раз разные Необходимо считать данные из всех этих файлов, склеить в 1 таблицу исполняющем файле. В идеале считать данные по следующему диапазонам: с А19 по самую нижняя заполненная ячейку столбце G, значения в этом столбце могут принимать значение "0" и просто шикарно было бы если бы он дописывал 2 столбца один с названием файла из которого прочитал таблицу и второй это название папки из которой был взят файл. заранее благодарю всех кто откликнется... очень прошу помочь!!! 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	04.02.2011, 16:00	2
	Ну а в чём собственно вопрос? Как перебрать папки и файлы в них? Или как открыть файл. Или как определить последнюю занятую строку? Если надо просто сделать макрос - можно записать макрорекордером. Если вам нужен готовый - обращайтесь на мыло. (нужны будут образцы файлов) 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	04.02.2011, 17:23 [ТС]	3
	дело в том что я сам занимался программированием занимался когда-то очень давно... общее представление имею... но сделать что-то цельное мозгов уже не хватает... но отдельные части кода я видел на форуме.. а вот с объединением вышли напряги... по этому и прошу сразу целиком. 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	06.02.2011, 12:56 [ТС]	5
	аналогичный макрос я уже находил даже находил макрос который сшивал все листы из всех этих файлов в одну книгу проблема в том, что я не смог скомбинировать... это с тем что бы брались данные начиная с конкретной ячейки и по расчетную (самую нижнюю заполненную в столбце G) 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	06.02.2011, 22:44	6
	Если не сможете доделать до конца, опишите тогда более четко задачу, потому что в данной постановке вопроса могут быть разные решения как видения Вашей задачи. Например, уточните: 1. Из каких листов в найденных книгах брать данные (из первого, из n-го, из последнего, из каждого листа, из листа с каким-то конкретным именем, из активного в данный момент листа и т.п.) 2. В каком порядке предполагается объединять скопированные блоки файлов (сверху-вниз, справа налево, в отдельном листе каждый блок данных или как-то еще. 3. Нужно ли сохранять форматирование, формулы скопированных ячеек? 4. Нужно ли в указанных папках книги отсеивать по какой-то маске. Это не все доп. вопросы, а часть их навскидку. Их обязательно бы Вам задали, если бы делали работу на заказ. А вы хотите, как я понимаю, это даром, так-что советую избавить ваших помощников от рутины, иначе никому не захочется Вам помогать. 1

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	07.02.2011, 08:54 [ТС]	7
	Сообщение от mc-black 1. Из каких листов в найденных книгах брать данные (из первого, из n-го, из последнего, из каждого листа, из листа с каким-то конкретным именем, из активного в данный момент листа и т.п.) 2. В каком порядке предполагается объединять скопированные блоки файлов (сверху-вниз, справа налево, в отдельном листе каждый блок данных или как-то еще. 3. Нужно ли сохранять форматирование, формулы скопированных ячеек? 4. Нужно ли в указанных папках книги отсеивать по какой-то маске. 1.данные надо брать из листа с название "сборы" он стоит первым 2.объединять сверху вниз порядок файлов не важен главное полнота сбора данных в каждом файле на первой вкладке надо взять диапазонс начиная с А19 по самую нижнюю заполненную ячейку в столбце G, значения в этом столбце могут принимать значение "0" 3.форматирование можно не сохранять, формул там нет. 4. маски на файлы тоже отсутствуют в этих папках не будет лежать лишних файлов 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	07.02.2011, 13:14	8
	zauf Выложите несколько таких файлов и Вы быстрее получите ответ. 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	10.02.2011, 11:24 [ТС]	11
	протестировал... зависает на 3-м файле... и еси я не ошибаюсь просто заменяет даннымииз нового файла старые данные, а надо дописывать начиная с ячейки следующей за последней заполненной в столбце А ... могу нарисовать принцип в схеме. есть ещё одно маленькое замечание вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием (данные файлов из папки region во вкладку с названием region из city в сшен direction в direction) вставку надо начинать с ячейки А2 соответствующего листа Миниатюры 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	10.02.2011, 11:49	12
	zauf, Те бе же уже сказали: Выложите несколько таких файлов и Вы быстрее получите ответ. Здесь же не общество телепатов любителей. вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием (данные файлов из папки region во вкладку с названием region из city в сшен direction в direction Теперь желающие помочь должны разгадать ребус: 1. Под каким "соответствующим названием" - чему должен соответствовать. 2. Что ты понимаешь под понятием "вкладка" 3. Что такое "сшен". И только после этого что-то тебе подсказать. А тебе просто лень сделать один раз образец вручную, запаковать его и прицепить 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	10.02.2011, 12:29	14
	Сообщение от zauf внимательно читаем предложение =)) Если это предложение, то коммерческое, и надо писать цену.. Если хотите получить помощь бесплатно - то это должна быть просьба.??? 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	10.02.2011, 12:46	15
	вставлять необходимо в файл с названием collector.xls находящийся в этой же папке, в лист под соответствующим названием Ну с этим более менее понятно. данные файлов из папки region во вкладку с названием region Я не понимаю, что такое "вкладка" с названием region? Сделай образец, что должно получиться. Хоть посмотрю, что такое "вкладка" в твоём понимании 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	10.02.2011, 13:36 [ТС]	16
	Сообщение от Alex77755 Ну с этим более менее понятно. Я не понимаю, что такое "вкладка" с названием region? Сделай образец, что должно получиться. Хоть посмотрю, что такое "вкладка" в твоём понимании прошу прощения за неверный термин... лист в книге...под названием 'region' 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	10.02.2011, 13:56 [ТС]	18
	Сообщение от dzug Если это предложение, то коммерческое, и надо писать цену.. Если хотите получить помощь бесплатно - то это должна быть просьба.??? Сударь, не выхватывайте фразы из контекста в том сообщении из которого вы взяли оно было совокупностью слов, и выражающей сообщение, а не тем что вам показалось приношу свои извинения за то что ввел вас в заблуждение 0

@zauf 0 / 0 / 0 Регистрация: 04.02.2011 Сообщений: 10
	10.02.2011, 16:04 [ТС]	20
	Супер =))) всё круто, но когда этот алгоритм натыкается на файл в котором ничего нет... он выдаёт ошибку =))) имя папки можно писать без пути по которому она находится. просто название и всё 0

Сбор данных разных файлов, рассортированных по трем папкам

Решение