From: markus.humm1@freenet.de   
      
   jg07 schrieb:   
      
   USES dos;   
      
   VAR dirinfo:searchrec;   
      
   BEGIN   
      
   findfirst('*.txt',anyfile,dirinfo);   
   while doserror = 0 do   
   begin   
      erase(dirinfo.name);   
      findnext(dirinfo);   
   end;   
      
   END.   
      
   This should be a good starter for your task.   
      
   Greetings   
      
   Markus   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)