Тема: имена файлов в папке

Подскажите пожалуйста как на VBA или WinApi (если нельзя на VBA)
записать все имена файлов в одной директории с опред расширением
те необходимо в переменную Name поочереди записать имена всех файлов
из папки c:\1 с расширением *.txt
Спасибо

Re: имена файлов в папке

Dir [(PathName[, Attributes])]
Dir$ [(PathName[, Attributes])] 

Функция Dir служит для проверки существования каталога или файла, отвечающих заданному образцу. Функция поддерживает использование подстановочных знаков для нескольких символов(*) и одиночного символа(?) для указания нескольких файлов. Функция возвращает первое имя файла, имя которого соответствует аргументу PathName. Для получения остальных файлов, имена которых соответствуют PathName, следует повторно вызвать функцию Dir без аргументов
Attributes
значения Attributes
>vbNormal=0
Обычное состояние файла.Используется по умолчанию
>vbReadOnly=1
Атрибут только для чтения
>vbHidden=2
Скрытый атрибут
>vbSystem=4
Системный атрибут
>vbVolume=8
Метка тома
>vbDirectory=16
Каталог или папка

dir ("c:\*.bat")

либо API FindFirstFile & FindNextFile