Определение адреса случайного файла jpg - в подкаталогах

@mv6677 · Регистрация: 06.12.2017

Author24 — интернет-сервис помощи студентам

Возникла необходимость выписки в ячейку - адреса случайного файла с расширением jpg.
Файлы jpg имеют самое разное название и лежат в подкаталогах папки "Главная папка".

Как скриптом выхватить адрес одной из многих картинок jpg, лежащих в этой папке - и выписать его в ячейку F3 ?
Помогите кто знает - как это сделать.

~~Остап Бонд~~ · 02.03.2018, 12:08

mv6677, Вы не открыли тайну расположения папки "Главная папка", поэтому догадайтесь сами,
что прописать вместо ThisWorkbook.Path & "\Главная папка"

Visual Basic

Dim a(), c
 
Sub Скругленныйпрямоугольник1_Щелчок()
Erase a
c = 0
G CreateObject("Scripting.FileSystemObject").getfolder(ThisWorkbook.Path & "\" & "Главная папка")
Randomize
[f3] = a(Int(Rnd * c))
End Sub
 
Sub G(fol)
For Each fi In fol.Files
  If LCase(fi.Name) Like "*.jpg" Then
    ReDim Preserve a(c)
    a(c) = fi.Path
    c = c + 1
  End If
Next
For Each fo In fol.subfolders
  G fo
Next
End Sub

@mv6677 · 02.03.2018, 13:48 **[ТС]**

Остап Бонд, заработало, Спасибо.

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	02.03.2018, 13:48 [ТС]	3
	Остап Бонд, заработало, Спасибо. 0

Определение адреса случайного файла jpg - в подкаталогах

Решение