c2be330c   
   From: jotel99@hotmail.com   
      
   Dos-Man 64 typed:   
   > On Apr 9, 5:20 am, Wolf Behrenhoff   
   >   
   > My current calls look like this...   
   >   
   >                      getdir(0,s);      { get current working   
   > directory }   
   >                      findfirst(s, Directory, "*");   
   >   
   > It sort of works, since most files have extensions, but some do not. I   
   > need to filter those out. Maybe I will have to resort to using DOS API   
   > calls?   
      
   it should not work at all.   
      
   here are some (sliphtly modified) lines of some ancient TP6 program.   
      
   untested snippet   
      
   - - -   
   var sr: SearchRec;   
      
         findFirst('*.*',$3f,sr); {find everything}   
         while DosError=0 do {no error? }   
         begin   
           if (sr.attr and $10)<>0 then { is SubDir}   
             if sr.name[1]<>'.' then {is not current(.) / up(..) }   
               writeln(sr.name);   
           findNext(sr) {find next}   
         end;   
   - - -   
      
   greeetz   
   jo   
      
   --   
   http://radio789.net.ms - Radio 789 - We play it ALL   
   Radiostream: http://stream789.net.ms   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)