Открытие по очереди всех текстовых файлов из каталога - VBA

Формулировка задачи:

Доброго времени суток! Надо сделать перебор всех текстовых файлов в указанной папке. Я сделал так: все имена текстовых файлов сделал числовыми(1.txt,2.txt,...,n.txt),только так получилось все перебрать. А как сделать цикл, перебирающий все текстовые файлы с не числовым именем(Теория.txt,Практика.txt.........)?

                    Листинг программы
                
 
                        
                          
                    
' задаём папку
FolderPath = "C:\txt"
 
'определение количество файлов в папке
Set fso = CreateObject("Scripting.FileSystemObject")
kolvo = fso.GetFolder(FolderPath).Files.Count
'MsgBox kolvo     'выводим количество файлов в папке
 
'объявим пеpеменнyю для имени файла и его cодеpжимого
  For i = 1 To kolvo
   'ycтановим имя файла и пyть
    File = "C:\txt" & i & ".txt"        
    'загружаем файл с именем i в переменную f для  чтения
    Open File For Input As #1
    'В переменную PS помещаем всё содержимое файла
    PS = Input(FileLen(File), 1)
    'Закрываем файл
    Close #1

Решение задачи: «Открытие по очереди всех текстовых файлов из каталога»

textual
                            Листинг программы 
                        
 
                        
                          
                    
For Each f In fso.GetFolder(FolderPath).Files
  If f Like "*.txt" Then
    File = FolderPath & F
    'etc...
  End If
Next