Можно ли использовать подстановочный знак для расширения?

Question

Можно ли использовать подстановочный знак для расширения файла?

ImageDir = CurrentProject.Path & "\Images\Invitory Items\" & Me.ListInvent.Column(1, r) & ".*"

Выше не работает. Google не предлагает много.

Answer 1

iDir = Dir(CurrentProject.Path & "\Images\InvitoryItems\" & Me.ListInvent.Column(1, r) & ".*")
ImageDir = CurrentProject.Path & "\Images\InvitoryItems\" & iDir