> -- Valery Solovey писал(а):
> Файлы - это хорошо, но Вы уверены, что там есть поддиректории?

Ах тыж... Точно!!! Там только файлы. нет подкаталогов.
Вот такое вот чудо:
## Код:
```
MODULE MFile;
 IMPORT Files,StdLog,Stores,TextViews,TextModels,TextMappers,
Views,In;
VAR
 l:Files.Locator;
 li:Files.LocInfo;
 lf:Files.FileInfo; 
PROCEDURE do*;
 VAR
  w:TextViews.View;
  tm:TextModels.Model;
  txt:TextMappers.Formatter; 
  s:ARRAY(200) OF CHAR; 
BEGIN
 In.Open;
 In.String(s); 
 l:=Files.dir.This(s);
[b] li:=Files.dir.LocList(l);
 lf:=Files.dir.FileList(l); [/b]
 IF  (li#NIL) OR (lf#NIL)  THEN

  tm:=TextModels.dir.New();
  txt.ConnectTo(tm); 
  w:=TextViews.dir.New(tm);
  Views.OpenView(w);
  
    WHILE (li#NIL) DO
      txt.WriteString(li.name); txt.WriteLn;
      li:=li.next;
    END;

    WHILE (lf#NIL) DO
      txt.WriteString(lf.name); txt.WriteLn;
      lf:=lf.next;
    END;

 END;
END do;
 
END MFile.
MFile.do;
"c:\temp"
```

Как раз мне и показало где я ошибался.

Все оказывается просто до безобразия

В просо привык в FindFirst который и файлы и папки показывает в куче...