Список файлов в массив

Здравствуйте !

Есть код :

Private Sub Кнопка127_Click()
Dim FileName As String
FileName = Dir("D:\s\*.*", vbNormal)


Do While FileName <> "" ' проверка что вывод работает
Список0.AddItem (FileName)
FileName = Dir
Loop
End Sub

Не могу не как занести все имена файлов в массив.Подскажите как это сделать?

Эдвард_noob
Здравствуйте ! Есть код : Private Sub Кнопка127_Click() Dim FileName As String FileName = Dir("D:\s\*.*", vbNormal) Do While FileName <> "" ' проверка что вывод работает Список0.AddItem (FileName) FileName = Dir Loop End Sub Не могу не как занести все имена файлов в массив.Подскажите как это сделать?

где тут "массив" ??

вообще, через FSO, можно получить доступ к коллекции Files каталога, ... и не надо никакого массива

ё
... вообще, через FSO, можно получить доступ к коллекции Files каталога, ... и не надо никакого массива

http://www.script-coding.com/WSH/FileSystemObject.html#6.2.15.

Для начала создать объект массив:
Например,
Dim arr() as String
Ну, а дальше - заполнить его...

Rivkin Dmitry .. да массив то я знаю как создать не знаю как его заполнить через цикл или еще как =))) я чайник помогите

Эдвард_noob
Rivkin Dmitry .. да массив то я знаю как создать не знаю как его заполнить через цикл или еще как =))) я чайник помогите

так вы же привели код, где заполняете элементами некий Список0 - в аналогичном цикле можно заполнять и массив.

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

Private Sub Кнопка127_Click()
Dim FileName As String
Dim aFileName() As String
Dim lngLBound As long
Dim lngUBound As long
FileName = Dir("D:\s\*.*", vbNormal)

lngLBound = 0
lngUBound = 0

Do While FileName <> "" ' проверка что вывод работает

ReDim Preserve aFileName(lngLBound To lngUBound)
aFileName(UBound(astr)) = FileName
lngCounter = lngCounter + 1

FileName = Dir
Loop
End Sub

как то так

Не, не так.

Эдвард_noob
не знаю как его заполнить через цикл или еще как

dim i as integer
dim filename as string
' ...
ReDim FileArray(1 to FSO_Folder.Files.Count)
i=1
for each filename in FSO_Folder.Files
 FileArray(i) = filenate.Name
 i=i+1
next

Akina,

в код вставляю что то не пашет(((