Выбор файлов по расширению в массив

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


Dim fldr As Object
Dim sfile As Object
Dim fso As Object
Dim sstrFileName As String
Dim sstrPath As String
Dim astr() As String
Dim lngLBound As Long
Dim lngUBound As Long
Dim Size As Integer
Dim asd As String


sstrPath = Me!txtPathFilea + "*.pdf" ' думал примерно так ,но не пашет

Set fso = CreateObject("scripting.FileSystemObject")

Set fldr = fso.GetFolder(sstrPath)

For Each sfile In fldr.Files

sstrFileName = sfile.Name
ReDim Preserve astr(lngLBound To lngUBound)
astr(UBound(astr)) = sstrFileName
lngUBound = lngUBound + 1

Next
Size = UBound(astr) - LBound(astr) ' размер

вот такой код.

Не могу отсортировать файлы по расширению. Спасите бедного нуба.....

Эдвард_noob,
Выбирай не в массив, а в таблицу, и хоть засортируйся в доску через запросы.

RodionAT_new,

в какую таблицу? мне надо pdf в одни поля записывать ссылками а jpg в другие

Не надо заставлять людей отвечать на одни и те же вопросы по два раза. Вам и так помогают добровольно. Топик закрыт, продолжайте в первом.