Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908

Список файлов и папок в заданной директории

08.02.2017, 22:43. Показов 4078. Ответов 15
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем здравствуйте. Скажите как получить дерево файлов и папок в заданной дериктории? И все это в двумерный массив засунуть из 3х столбцов, в который если это папка в соседние столбцы дописывать 0 0 0755?

К такому вот виду, например:
Code
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
system/app/AdupsFota 0 0 755
system/app/AdupsFota/AdupsFota.apk 0 0 644
system/app/AdupsFota/arm 0 0 755
system/app/AdupsFota/arm/AdupsFota.odex 0 0 644
system/app/AdupsFotaReboot 0 0 755
system/app/AdupsFotaReboot/AdupsFotaReboot.apk 0 0 644
system/app/AdupsFotaReboot/arm 0 0 755
system/app/AdupsFotaReboot/arm/AdupsFotaReboot.odex 0 0 644
system/app/ApplicationsProvider 0 0 755
system/app/ApplicationsProvider/ApplicationsProvider.apk 0 0 644
system/app/ApplicationsProvider/arm 0 0 755
system/app/ApplicationsProvider/arm/ApplicationsProvider.odex 0 0 644
system/app/AtciService 0 0 755
system/app/AtciService/AtciService.apk 0 0 644
system/app/AtciService/arm 0 0 755
system/app/AtciService/arm/AtciService.odex 0 0 644
system/app/AutoDialer 0 0 755
system/app/AutoDialer/AutoDialer.apk 0 0 644
system/app/AutoDialer/arm 0 0 755
system/app/AutoDialer/arm/AutoDialer.odex 0 0 644
system/app/BSPTelephonyDevTool 0 0 755
system/app/BSPTelephonyDevTool/BSPTelephonyDevTool.apk 0 0 644
system/app/BSPTelephonyDevTool/arm 0 0 755
system/app/BSPTelephonyDevTool/arm/BSPTelephonyDevTool.odex 0 0 644
system/app/BasicDreams 0 0 755
system/app/BasicDreams/BasicDreams.apk 0 0 644
system/app/BasicDreams/arm 0 0 755
system/app/BasicDreams/arm/BasicDreams.odex 0 0 644
system/app/BatteryWarning 0 0 755
system/app/BatteryWarning/BatteryWarning.apk 0 0 644
system/app/BatteryWarning/arm 0 0 755
system/app/BatteryWarning/arm/BatteryWarning.odex 0 0 644
system/app/Bluetooth 0 0 755
system/app/Bluetooth/Bluetooth.apk 0 0 644
system/app/Bluetooth/arm 0 0 755
system/app/Bluetooth/arm/Bluetooth.odex 0 0 644
system/app/Bluetooth/lib 0 0 755
system/app/Bluetooth/lib/arm 0 0 755
system/app/Bluetooth/lib/arm/libbluetooth_jni.so 0 0 644 /system/lib/libbluetooth_jni.so
system/app/Browser 0 0 755
system/app/Browser/Browser.apk 0 0 644
system/app/Browser/arm 0 0 755
system/app/Browser/arm/Browser.odex 0 0 644
system/app/Calculator 0 0 755
system/app/Calculator/Calculator.apk 0 0 644
system/app/Calculator/arm 0 0 755
system/app/Calculator/arm/Calculator.odex 0 0 644
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.02.2017, 22:43
Ответы с готовыми решениями:

Как получить список директорий и список файлов в директории?
Очень нужно организовать поиск на диске. Как искать в нутри файла я знаю, а вот как искать вовсех файлах на диске и в поддиректориях незная

Подсчитать количество папок в определенной директории
Вот такой код пытаюсь применить к подсчету папок в папке 1, получается какая та хренота, помогите если кто может. Спасибо! Private Sub...

Как получить имена всех папок в определенной директории?
Как получить имена всех папок(не файлов!) в данной дир-ие?

15
...
 Аватар для ji2n
39 / 37 / 13
Регистрация: 08.10.2016
Сообщений: 173
08.02.2017, 23:19
Предоставьте свой код и укажите где возникает ошибка.
0
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
09.02.2017, 05:59  [ТС]
ji2n, еслиб он был, показал бы, но увы, нечего.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
11.02.2017, 19:15
Вообще-то этот вид - юниксовый. Просто получить список файлов в виде массива - не проблема. Показать, как?
0
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
11.02.2017, 19:58  [ТС]
Catstail, было б здорово!

Добавлено через 1 минуту
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Есть такое
' Display the names in C:\ that represent directories. 
MyPath = "c:" ' Set the path. 
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry. 
Do While MyName <> "" ' Start the loop. ' Ignore the current directory and the encompassing directory. 
If MyName <> "." And MyName <> ".." Then ' Use bitwise comparison to make sure MyName is a directory. 
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' Display entry only if it
End If ' it represents a directory. 
End If 
MyName = Dir ' Get next entry. 
Loop
Как к массиву прикрутить?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
11.02.2017, 20:27
Вот функция, которая берет имя директории, а возвращает трехстрочный массив. В первой строке - имена файлов, во второ й - атрибуты, в третьей - длины в байтах:

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
Function DirList(Pth As String) As String()
Dim R() As String
 
    sz% = 100
    ReDim R(1 To 3, 1 To sz%) As String
    
    cF$ = Dir$(Pth + "\*.*", vbNormal)
    ptr% = 1
    
    Do
    
       If cF$ = "" Then Exit Do
       R(1, ptr%) = cF$
       R(2, ptr%) = Hex$(GetAttr(Pth + "" + cF$))
       R(3, ptr%) = CStr(FileLen(Pth + "" + cF$))
       ptr% = ptr% + 1
       
       cF$ = Dir$()
    
       If ptr% > sz% Then
          sz% = sz% + 100
          ReDim Preserve R(1 To 3, 1 To sz%) As String
       End If
       
    Loop
    
    ReDim Preserve R(1 To 3, 1 To (ptr% - 1)) As String
 
    DirList = R
 
End Function
 
Sub Test()
 
Dim D() As String
 
    D = DirList("C:\!Send")
 
    For i% = 1 To UBound(D, 2)
        Debug.Print D(1, i%); " "; D(2, i%); " "; D(3, i%)
    Next i%
 
End Sub
1
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
11.02.2017, 20:59  [ТС]
Catstail, а подпапок, подпапок, подпапок тоже возьмет или только файлы и то только одной папки?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
12.02.2017, 08:13
blackeangel, не возьмет. Но о них и речи не было. Можно доработать. Может, сам попробуешь?
0
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
12.02.2017, 10:03  [ТС]
Catstail,
Цитата Сообщение от Catstail Посмотреть сообщение
Но о них и речи не было.
Цитата Сообщение от blackeangel Посмотреть сообщение
Скажите как получить дерево файлов и папок в заданной дериктории?
даже в примере это видно
Цитата Сообщение от blackeangel Посмотреть сообщение
Code
1
system/app/AutoDialer/arm/AutoDialer.odex 0 0 644
как раз самая оснавная проблема в подпапках. Из за этого и пришел на форум. А вот список файлов получить в одной папке - не проблема - в гугле полно примеров
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
12.02.2017, 10:35
Цитата Сообщение от blackeangel Посмотреть сообщение
А вот список файлов получить в одной папке - не проблема - в гугле полно примеров
- да-да. Гнилой код, который ты нашел и выложил - тому подтверждение. Сам пробовать не хочешь - вот код, который строит список файлов директории и всех ее поддиректорий. И проблема тут вовсе не в том, чтобы "прикрутить массив":

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Function DirList(Pth As String) As String()
Dim R() As String
Dim D() As String
Dim T() As String
 
    sz% = 100
    ReDim D(1 To sz%) As String
    
    cD$ = Dir$(Pth + "\*.*", vbDirectory)
    ptrD% = 0
  
    Do
    
       If cD$ = "" Then Exit Do
    
       If cD$ <> "." And cD$ <> ".." Then
    
          If GetAttr(Pth + "" + cD$) And vbDirectory Then
    
             ptrD% = ptrD% + 1
             
             If ptrD% > sz% Then
                sz% = sz% + 100
                ReDim Preserve D(1 To sz%) As String
             End If
             
             D(ptrD%) = Pth + "" + cD$
                
          End If
              
       End If
    
       cD$ = Dir$()
    
    Loop
 
    sz% = 100
    ReDim R(1 To 3, 1 To sz%) As String
    
    cF$ = Dir$(Pth + "\*.*", vbNormal)
    ptrF% = 0
    
    Do
    
       If cF$ = "" Then Exit Do
      
       ptrF% = ptrF% + 1
      
       If ptrF% > sz% Then
          sz% = sz% + 100
          ReDim Preserve R(1 To 3, 1 To sz%) As String
       End If
      
       R(1, ptrF%) = Pth + "" + cF$
       R(2, ptrF%) = Hex$(GetAttr(Pth + "" + cF$))
       R(3, ptrF%) = CStr(FileLen(Pth + "" + cF$))
       
       cF$ = Dir$()
       
    Loop
    
    For i% = 1 To ptrD%
    
        cP$ = D(i%)
        T = DirList(cP$)
        
        For j% = 1 To UBound(T, 2)
        
            ptrF% = ptrF% + 1
      
            If ptrF% > sz% Then
               sz% = sz% + 100
               ReDim Preserve R(1 To 3, 1 To sz%) As String
            End If
    
            R(1, ptrF%) = T(1, j%)
            R(2, ptrF%) = T(2, j%)
            R(3, ptrF%) = T(3, j%)
    
        Next j%
        
        Erase T
        
    Next i%
    
    If ptrF% > 0 Then
    
       ReDim Preserve R(1 To 3, 1 To ptrF%) As String
       
    Else
    
       ReDim R(1 To 3, 0 To 0) As String
 
    End If
 
    DirList = R
 
End Function
 
Sub Test()
 
Dim D() As String
 
    D = DirList("C:\!Send")
 
    For i% = 1 To UBound(D, 2)
        Debug.Print D(1, i%); " "; D(2, i%); " "; D(3, i%)
    Next i%
 
End Sub
В коде глотается одиночный бэкслэш. Вынужден удваивать.
0
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
12.02.2017, 16:01  [ТС]
Catstail, при попытке посмотреть все что в папке Windows
ошибка в строке
Visual Basic
1
 If GetAttr(Pth + "" + cD$) And vbDirectory Then
И потом, я так понимаю он покажет лишь на три уровня подпапок?
А если надо все? пускай все миллиарды подпапок.
Да и еще что за цифра 100?
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
12.02.2017, 16:11
Цитата Сообщение от blackeangel Посмотреть сообщение
А если надо все? пускай все миллиарды подпапок.
А миллиардов вложений не может быть, даже тысяч, максимум - пару сотен, тому есть другие причины.
1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
12.02.2017, 19:23
blackeangel, да Форум пропускает бэкслэш! А ты не понимаешь, что присоединять пустую строку бессмысленно?

Цитата Сообщение от blackeangel Посмотреть сообщение
И потом, я так понимаю он покажет лишь на три уровня подпапок?
- неправильно понимаешь.

Цитата Сообщение от blackeangel Посмотреть сообщение
Да и еще что за цифра 100?
- это размер блока выделяемой памяти. Может быть любым.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
12.02.2017, 19:26
Лучший ответ Сообщение было отмечено blackeangel как решение

Решение

Прилагаю чуть подправленный код. Проверил на своем C:\Program Files (порядка 80 тыс. файлов).
Вложения
Тип файла: zip DList.zip (10.5 Кб, 65 просмотров)
3
 Аватар для blackeangel
19 / 10 / 1
Регистрация: 22.07.2015
Сообщений: 908
13.02.2017, 20:01  [ТС]
Catstail, Спасибо, работает. а как теперь это осуществить?
Цитата Сообщение от blackeangel Посмотреть сообщение
в который если это папка в соседние столбцы дописывать 0 0 0755?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
13.02.2017, 20:53
Цитата Сообщение от blackeangel Посмотреть сообщение
в который если это папка в соседние столбцы дописывать 0 0 0755?
- я вижу, ты все понял...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.02.2017, 20:53
Помогаю со студенческими работами здесь

Список папок в массив
Вопрос в следующем. Есть папка, например C:/Temp, в которой размещены папки с вложенными папками. Количество вложенных папок в каждой папке...

Поиск файлов по размеру в директории и поддиректориях
Всем привет! Пока новичок в этом деле, по этому сильно не пинайте если вопрос глупый. Нашел пример поиска файлов, подогнал его по своим...

Список всех файлов и папок указанной директории по заданной маске
Здравствуйте! Требуется написать программу, используя FileNameFilter которая выведет на экран список всех файлов и папок указанной...

Как получить список папок в заданной директории
Подскажите как получить список папок в заданной директории (при этом имена файлов в список попадать не должны)?

Выводить список файлов, папок из директории
Здравствуйте, как выводить список папок в виде select.... Например у меня есть папка и внутри папки 8-9 папок.... как выводить список...


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

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru