[DeOne]

i f F i n d F i r s t ( ' C : \ W I N D OWS \ * . t x t ' , f a H i d d e n + f a S y s F i l e , F ) = 0 then

Это он парсит все названия файлов из папки с форматом txt ?