With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = PapkaName
.FileName = "*.*"
If .Execute > 0 Then
On Error Resume Next
N& = .FoundFiles.Count
For i = 1 To N
FileName = .FoundFiles(i)
....тут как-то надо написать.... команду занесения в массив. Я ее не знаю.
Next
On Error GoTo 0
End If
End With
Как занести в коллекцию?
Подскажите, пожалуйста.
Вот есть папка PapkaName = C:\pics
Как мне собрать в массив картинки, которые там сидят?
Вот пример обработки с помощью FileSearch (из другой процедуры):
Т.е. в массиве (или коллекции) должны оказаться все картинки:
№1-Заставка.jpg
№2-Заставка.jpg
№3-Заставка.jpg
№4-Заставка.jpg
№5-Заставка.jpg
чтобы я потом к ним обращался по этим их именам. Или вернее, я бы обращался по номеру в коллекции, а в нем бы уже сидел путь к этой картинке.
Вот есть папка PapkaName = C:\pics
Как мне собрать в массив картинки, которые там сидят?
Вот пример обработки с помощью FileSearch (из другой процедуры):
Код:
Т.е. в массиве (или коллекции) должны оказаться все картинки:
№1-Заставка.jpg
№2-Заставка.jpg
№3-Заставка.jpg
№4-Заставка.jpg
№5-Заставка.jpg
чтобы я потом к ним обращался по этим их именам. Или вернее, я бы обращался по номеру в коллекции, а в нем бы уже сидел путь к этой картинке.
Код:
dim result() as string //!
With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = PapkaName
.FileName = "*.jpg" //!
If .Execute > 0 Then
On Error Resume Next
N& = .FoundFiles.Count
redim result(N) //!
For i = 1 To N
FileName = .FoundFiles(i)
result(i)=FileName //!
Next
On Error GoTo 0
End If
End With
With Application.FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = PapkaName
.FileName = "*.jpg" //!
If .Execute > 0 Then
On Error Resume Next
N& = .FoundFiles.Count
redim result(N) //!
For i = 1 To N
FileName = .FoundFiles(i)
result(i)=FileName //!
Next
On Error GoTo 0
End If
End With
Спасибо.