К сожалению vba не владею. Думал, что уже есть готовые или кто поможет.
Мне вот такое скинули. Это не то что нужно? Правда как этим пользоваться я то же не знаю. При компиляции вылезают ошибки.
Мне вот такое скинули. Это не то что нужно? Правда как этим пользоваться я то же не знаю. При компиляции вылезают ошибки.
| Код |
|---|
Function GetFiles(fldr As String, Optional fltr As String = "*.*") As Variant
Dim sTemp As String, sHldr As String
If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
sTemp = Dir(fldr & fltr)
If sTemp = "" Then
FileList = Split("No files found", "|") 'ensures an array is returned
Exit Function
End If
Do
sHldr = Dir
If sHldr = "" Then Exit Do
sTemp = sTemp & "|" & sHldr
Loop
FileList = Split(sTemp, "|")
End Function |
Изменено: - 01.11.2017 21:54:53
