Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
FireHeadChaos
2 / 2 / 0
Регистрация: 06.03.2019
Сообщений: 23
1

Сбор названий файлов в массив

12.10.2019, 07:52. Просмотров 216. Ответов 5

Написал код сбора файлов в массив
но он у меня собирает файлы несколько раз, в чём ошибка? Директория находится в сети.


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub test()
Dim Filepath As String
Dim FSO As Object
Dim FileItem As Object
Dim sourcefolder As Object
Dim par As Long
Dim palett() As String
Dim filescount As long
 
 
Dim tmpArr1() As String
 
Filepath = [e5]
 
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 
 If FSO.folderExists(Filepath) Then 'проверка директории перед созданием объекта директории
    Set sourcefolder = FSO.getfolder(Filepath)
    Else: MsgBox "Проверьте директорию файлов": End
 End If
 
'выводим данные в массив
 
filescount = sourcefolder.Files.Count
 
If filescount = 0 Then MsgBox "Директория пуста": End
 
ReDim palett(1 To filescount)
 
ReDim ResultSpum(1 To filescount)
 
par = 0
 Set FileItem = Nothing
For Each FileItem In sourcefolder.Files 'сбор однотипных палет в массив
'найти имя файла
    par = par + 1
    If par > filescount Then
        MsgBox "Обновите данные": End
    End If
 
    palett(par) = FileItem.name
   
         
Next FileItem
 
 
End Sub
Что делаю не так? Мне нужно создать массив файлов. Доказательство повторов во вложении
0
Миниатюры
Сбор названий файлов в массив  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2019, 07:52
Ответы с готовыми решениями:

Изменение численных названий файлов - в трехзначный вид
Люди, помогите решить задачу. В папке с Книгой xlsm - лежит много пронумерованных текстовых файлов...

Сбор информации с разных файлов
Кто может помочь в написании не сложного (а для меня очень сложного :) ) макроса. Суть в...

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

Сбор данных из разных файлов в один
Добрый день. Стоит задача собирать данные из нескольких файлов с одинаковой структурой в один,...

Сбор данных из множества Csv файлов с разделителями
Здравствуйте! есть Определенное количество csv фалов примерно с таким текстом: ...

5
Остап Бонд
1088 / 579 / 274
Регистрация: 17.08.2017
Сообщений: 1,516
12.10.2019, 09:10 2
FireHeadChaos, ни одного повтора не нашёл я на скрине
0
FireHeadChaos
2 / 2 / 0
Регистрация: 06.03.2019
Сообщений: 23
12.10.2019, 09:43  [ТС] 3
вот тут нагляднее
0
Миниатюры
Сбор названий файлов в массив  
Остап Бонд
1088 / 579 / 274
Регистрация: 17.08.2017
Сообщений: 1,516
12.10.2019, 09:58 4
FireHeadChaos, покажи пальцем (индексы) повторов, я их по прежнему не вижу...
0
FireHeadChaos
2 / 2 / 0
Регистрация: 06.03.2019
Сообщений: 23
12.10.2019, 10:44  [ТС] 5
15 и 51

Добавлено через 36 минут
поадресно можно как-нибудь обращатья с Fileitem? Пытался написать
Visual Basic
1
palett(par)= massiv.Item(i).name
ничего не получается
0
FireHeadChaos
2 / 2 / 0
Регистрация: 06.03.2019
Сообщений: 23
12.10.2019, 17:17  [ТС] 6
может можно как-то переместить в массив без перечисления?
0
12.10.2019, 17:17
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2019, 17:17

Сбор данных из файлов Excel в заданной папке
Добрый день Есть файл с макросом Marc, если кликнуть на Ordner Auswählen и выбрать папку Reporting...

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

Сбор рабочих листов из внешних файлов с последующим выполнением другого макроса
Использую прекрасный макрос с форума,-спасибо. Макрос умеет открывать много файлов "в один" - одну...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.