Как узнать имена всех файлов или папок в каталоге?
Здесь нам поможет всемогущий Dir(). Имена можно записывать в список или массив, но лучше всего в коллекцию.
Достать файлы с использованием коллекции:
Dim FilesCol As New Collection, FileName As String
FileName = Dir("C:\", vbNormal)
Do While FileName <> ""
FilesCol.Add FileName
FileName = Dir()
Loop
FileName = Dir("C:\", vbNormal)
Do While FileName <> ""
FilesCol.Add FileName
FileName = Dir()
Loop
Можно также в список:
Dim FileNameAs String
FileName = Dir("C:\", vbNormal)
Do While FileName <> ""
List1.AddItem FileName
FileName = Dir()
Loop
FileName = Dir("C:\", vbNormal)
Do While FileName <> ""
List1.AddItem FileName
FileName = Dir()
Loop
В массив по-моему запихивать не выгодно и трудоемко, так что процесс я здесь описывать не буду.
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/